[[Al González]]

Empezado por cesarsoftware

[...] os mando una funcion [...]

Código Delphi [-]
function SacaRutaFireBird(): string;
var
  Reg: TRegistry;
  Resultado: string;
begin
  Resultado := '';
  Reg := Tregistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
     if Reg.OpenKey(
       '\SOFTWARE\Firebird Project\Firebird Server\Instances', True) then
     begin
       Resultado := Reg.Readstring('DefaultInstance');
       Reg.CloseKey;
     end;
  finally
    Reg.Free;
  end;
  Result := Resultado;
end;

[...]

De nada

Hola César.

Sin menoscabo de las útiles rutinas que nos regalas, viendo la primera de ellas me permito hacer una versión un poco mejorada:

Código Delphi [-]
Function FirebirdDir :String;
Begin
  With TRegistry.Create Do
    Try
      RootKey := HKey_Local_Machine;

      If OpenKeyReadOnly (
      '\Software\Firebird Project\Firebird Server\Instances') Then
        Result := ReadString ('DefaultInstance')
      Else
        Result := '';
    Finally
      Free;
    End;
End;

Saludos.

P.D. Aprovecho para saludar a Marc y Raúl (segundo y tercer mensaje), donde quiera que se encuentren después de tantos años de intenso Delphi.