Registry KeyExists function AddressVilation

[k4ni]

hallo DP,

Um zu prüfen ob ein eintrag ein einer TreeView liste schon existiert oder nicht benütz ich die registry weil ich es anderst nicht hinbekomme.
Da hab ich mir eine kleine function geschrieben, hier:

Delphi-Quellcode:

function RegExists(Entry: String): boolean;
var
regist: TRegistry;
begin
result := false;
regist.Create;
regist.RootKey := HKEY_LOCAL_MACHINE;
if regist.KeyExists('Software\phpbb_manager\Server'+Entry) then
result := true;
end;

Hab ich aufgerufen mit:

Delphi-Quellcode:

procedure TForm2.AddServerBtnClick(Sender: TObject);
var
Ibox: String;
begin
Ibox := Inputbox('Add new server', 'Enter name of the new server:', '');
if not RegExists(Ibox) then
//if not (Ibox =  '') then
ServerView.Items.AddChild(nil, Inputbox('Add new server', 'Enter name of the new server:', 'New server'));
{Und hier eben noch den registry-eintrag machen}
end;

Ich verstehe nicht wieso dor eine addressViolation kommt, habs auch schon versucht indem ich zuerst "OpenKey" mache, ging aber auch nicht

Ich hoffe ich könnt mir helfen
danke im vorraus

[MStoll]

Hi,

du solltest statt "regist.create" schreiben:

Delphi-Quellcode:

regist := TRegistry.Create;
try
 ...dein Code...
finally
   regist.Free;
end;

Gruß
Michael

[DeddyH]

regist.Create;
regist := TRegistry.Create; Und der Tipp mit dem try-finally-Block ist auch nicht verkehrt

[k4ni]

ay ay ay.
Ich immer mit meinen leichtsinnsfehler
Jop danke noch für the try - finally tipp, gleich mal hinzugefügt. 8)

Vielen dank

[Tyrael Y.]

Und wenn du schon mal dabei bist, kannst du das result auch nur einmal schreiben

result := regist.KeyExists('Software\phpbb_manager\Server'+Entry);

[Luckie]

Und wenn du schon mal dabei bist, könntest du das ganze auch ohne Admin-Rechten lauffähig machen, in dem die den Schlüssel nur lesend öffnest mit TRegistry.Create(KEY_OPENREAD).