Cita:
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.