Acceder al registro de windows vista.

[mikzero]

Empezado por Angel Fernández

Hola a todos. Quisiera comentaros un problema que tengo con windows vista (y que no tenía en windows xp) al tratar de leer una clave del registro.
Concretamente se trata de saber la ubicación del fichero gbak.exe de firebird para realizar copias de seguridad.
Hasta ahora, el código que utilizaba y que ya digo, funciona perfectamente en windows xp, es el siguiente:

Código Delphi [-]
procedure TFormConfigurar.btnDetectarClick(Sender: TObject);
var
  v_reg: TRegistry;
  MaxFileNameLength, VolFlags, SerNum: DWord;
  rutabin: string;
begin
  with TRegistry.Create do
  begin
    v_reg := TRegistry.Create;
    v_reg.RootKey := HKEY_LOCAL_MACHINE;
    try
      v_reg.OpenKey('\SOFTWARE\Firebird Project\Firebird Server\Instances', False);
      rutabin := v_reg.ReadString('DefaultInstance') + 'bin\gbak.exe';
      closekey;
    finally
      v_reg.Free;
    end;
  end;

  edtRutaGBAK.Text := rutabin;
end;

Este código pone en la variable rutabin el texto de gbak.exe con la ruta completa para llamarlo con shellexecute.

He comprobado que la clave existe y que es correcta. Es la siguiente:

Equipo\HKEY_LOCAL_MACHINE\SOFTWARE\Firebird Project\Firebird Server\Instances\DefaultInstance

¿Alguna forma de solucionarlo?

Un saludo al foro.

Tengo el mismo Problema, cuando quiero hacer el ReadString no me devuelve nada y la variable rutabin queda con valor "bin\gbak.exe" cuando deberia traerme toda la ruta + bin\gbak.exe.

Estoy usando WINDOWS 7 y Delphi 2007 alguna idea?... Gracias

[[rretamar]]

Respondo tardíamente (más que responder, es rescatar un tema de la tumba jeje ) por si le sirve a alguien:

Hay que reemplazar

Código Delphi [-]
v_reg.OpenKey('\SOFTWARE\Firebird Project\Firebird Server\Instances', False);

Por:

Código Delphi [-]
v_reg.OpenKeyReadOnly('\SOFTWARE\Firebird Project\Firebird Server\Instances');

Y voilá !!! , ya se puede leer la clave del registro indistintamente en Windows XP, Windows Vista, Windows 7 y Windows 8.

De hecho tengo preparada una función que la utiliza, para leer la ubicación de Firebird y poder ejecutar utilidades como Gbak:

Código Delphi [-]
Function Trayecto_Firebird: String;
Begin
  Result := '';
  With TRegistry.Create Do
    Try
      RootKey := HKEY_LOCAL_MACHINE;
      If OpenKeyReadOnly('\SOFTWARE\Firebird Project\Firebird Server\Instances') Then // Corregido para Windows 7 (se reemplaza OpenKey por OpenKeyReadOnly)
        Result := ReadString('DefaultInstance');
    Finally
      Free;
    End;
End;

Saludos !

[MAXIUM]

Empezado por rretamar

Y voilá !!! , ya se puede leer la clave del registro indistintamente en Windows XP, Windows Vista, Windows 7 y Windows 8

Comprobado

Útil para leer registro de Windows 64bits