Comprobar llave en el Registro

[KnoX_RuS]

Hola a todos.

La duda es como puedo averiguar si una determinada llave existe en el registro, osea por ejemplo si la llave existe me abra un mensaje diciendo que esta y si no pues no.

El caso que leer y escribir en registro se pero no consigo hacer eso con un If y else.

salu2

[ecfisa]

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.

[Metal_Kingdom]

Hola KnoX, creo que ya me conoces..

Para hacerlo, puedes usar KeyExists, declarando previamente el unit registry en Uses y la clase TRegistry.

La opción de nuestro amigo ecfisa es completamente válida también.

Un saludo!

[KnoX_RuS]

Hey que hay metal, gracias a los 2 consegui solucionarlo con buestra ayuda.


salu2

[KnoX_RuS]

Bueno lo quise hacer con keyExist y no me salio.

Lo hice asi:

program Project1;

uses
  windows,
  SysUtils,
  Registry;
Var
  Registro:TRegistry;
begin
If Registro.KeyExists('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Sidebar') then begin
MessageBoxA(0,'LLave encontrada!','Bien', 64);
end;
MessageBoxA(0,'LLave no encontrada!','Mal', 64);

end.

Donde los MessageBoxA iria otro code eso lo puse para comprovar si funciona.

salu2 y gracias

[ecfisa]

Hola.

Código Delphi [-]
...
uses Registry;
...
begin
 with TRegistry.Create do
   if KeyExists('Software\Microsoft\Windows\CurrentVersion\Run\Sidebar') then
     MessageBoxA(0,'LLave encontrada!','Bien', 64)
   else
     MessageBoxA(0,'LLave no encontrada!','Mal', 64)
end;
...

Saludos.