Comprobar llave en el Registro

[KnoX_RuS]

Humm el code parece estar bien del todo pero me sige dando llave no encontrada cuando esa llave si existe en cualquier windows 7.

saludos.

[ecfisa]

Empezado por KnoX_RuS

Humm el code parece estar bien del todo pero me sige dando llave no encontrada cuando esa llave si existe en cualquier windows 7.

saludos.

Hola.

La verdad no puedo decir nada por que no tengo Windows 7, pero hice esta prueba que funciona sin problemas:

Código Delphi [-]
uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
const
  AKEY: array[0..1] of string=('Software\Microsoft\Windows\CurrentVersion', // existente
                               'Software\Microsoft\Windows\CurrentVerXXXX'); // inexistente
var
  v: Integer;
  r: TRegistry;
begin
  Randomize;
  v:= Random(2);
  with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if KeyExists(AKEY[v]) then
      MessageBoxA(0,PChar(AKEY[v]+': Encontrada'),'Bien', 64)
    else
      MessageBoxA(0,PChar(AKEY[v]+': No existe'),'Mal', 64);
  finally
    Free;
  end;
end;

Un saludo.

[KnoX_RuS]

Estuve viendo y si pongo solo direccion de carpeta '\Software\Microsoft\Windows\CurrentVersion\Run\' si dice que existe pero las llaves de las carpetas no las comprueva osea si pongo '\Software\Microsoft\Windows\CurrentVersion\Run\Sidebar' dice que no existe.


saludos.

[ecfisa]

Hola.

Ahora veo..., lo que sucede es que lo que estas buscando no es una clave es un valor.

Entonces en tu caso sería:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run\', False) then
      if ValueExists('Sidebar') then
        ShowMessage('Valor existente')
      else
        ShowMessage('Valor inexistente');
  finally
    Free;
  end;
end;

Saludos.

[KnoX_RuS]

Ostia es verda, perdoname por confundirte ahora sique si jeje.

Muchas gracias y saludos!