Hallo Leute
Ich habe folgendes Programmierziel:
Aus einem Registry-Schlüssel sollen alle Keys ausgelesen werden und nacheinander in einer ListBox (lstbxCharaktere) ausgegeben werden.
Dazu habe ich dies programmiert:
Delphi-Quellcode:
var Charaktere:TStringList;
i:integer;
regist:TRegistry;
begin
regist:=TRegistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey({Key wird geöffnet});
try
Charaktere:=TStringList.Create;
regist.GetKeyNames(Charaktere);
finally
regist.free;
end;
for i:=0 to Charaktere.Count-1 do
begin
try
lstbxCharaktere.Items.Add(Charaktere.Strings[i]);
finally
Charaktere.Free;
end;
end;
end;
Das Schöne ist: Wenn es nur einen Key gibt, funktioniert alles reibungslos. Ansonsten gibt es eine
Exception (Zugriffsverletzung).
Ich habe hier und auch in anderen Foren keinen Beitrag dazu finden können
Vielen Dank im Voraus!