Warunki i rejestr

[b]<font size="15">Czy możę mi ktoś uzupełnić poniższą procedure (zamiast {} dać kod)</span>[/b]

<font color="blue">{sprawdzenie czy nie ma klucza dwbh w rejestrze}</span>
Rejestr := TRegistry.Create;
Rejestr.RootKey:=HKEY_LOCAL_MACHINE;
Rejestr.Openkey('SoftwareMicrosoft',True);
<font color="blue">{sprawdzenie czy istnieje klucz DWBH jezeli nie to wykonuj dalej
jezeli jest to zmien w onclose na application.terminate (domyślnie jest:
Action := caNone;
Mainfrm.Hide;}</span>
Rejestr.Free;

Za pomoc z góry dziękuje.

nie chce mi sie dopisywać wszędzie :) wiec to juz sobie zrobisz ale jest funkcja która sprawdza czy dany klucz istnieje ValueExists, do kluczy jest KeyExists

przyklad

if ValueExists('FirstRun') then
FirstRun := ReadBool('FirstRun');

dopisze do vcl i dam ci likna

[dopisane]
http://vcl.4programmers.net/viewmethods.php?id=244
http://vcl.4programmers.net/viewmethods.php?id=245

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
Rejestr: TRegistry;

begin

try
Rejestr := TRegistry.Create;
Rejestr.RootKey := HKEY_LOCAL_MACHINE;

if Rejestr.KeyExists('Software\Microsoft\dwbh') then
begin
Action := caNone;
Mainfrm.Hide;
end
else Action := caFree;

finally
Rejestr.Free;
end;

end;

[dopisane]
zdaje sie ktos mnie wyprzedzil :-P