[moo2k]

Привет, подскажите, как реализовать проверку существования определенного ключа в реестре.

[4kusNick]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

//... var   Reg: TRegistry; begin     Reg := TRegistry.Create();   try     Reg.RootKey := HKEY_CURRENT_USER;     // можно так     if Reg.OpenKey('\Software\key', False) then     begin       ShowMessage('Ключ есть');     end     else     begin       ShowMessage('Ключа нет');     end;     // но лучше так     if Reg.KeyExists('\Software\key') then       ShowMessage('Ключ есть')     else       ShowMessage('Ключа нет');   finally     Reg.Free;     inherited;   end;

end;

[moo2k]

Спасибо.