Comprobar llave en el Registro

[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.

[KnoX_RuS]

Bueno me da error en el penultimo end;

program Project1;

uses
  windows,
  SysUtils,
  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;
end.

Y me hace falta mirarlo en HKEY_CURRENT_USER osea siempre me dice que no se encontro la llave cuando borro ese penultimo end;

salu2 y gracias por la ayuda que me estas dando.

[ecfisa]

Hola.

Disculpá, lo hice de memoria y me olvidé de RootKey...

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

Saludos.

[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.