Hola KnoX_RuS.
Código Delphi
[-]
...
uses Registry, StrUtils;
function ExistsKey(const ARootKey: HKEY; const AKey: string): Boolean;
begin
Result:= True;
with TRegistry.Create do
try
RootKey := ARootKey;
if not OpenKey(AKey, False) then
Result:= False;
finally
Free
end
end;
Llamada de ejemplo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
const
Valor = '\Software\Microsoft\Windows\CurrentVersion';
begin
Caption:= IfThen(ExistsKey(HKEY_LOCAL_MACHINE, Valor), 'Existe', 'No existe');
end;
Un saludo.