Local Firebird

Segue abaixo uma função para recuperar o local de instalação do Firebird usando o registro do Windows. Para executar o comando abaixo, adicione na cláusula Uses a Unit Registry.

function LocalFirebird: String;
var
   Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey ('SOFTWARE\Firebird Project\Firebird Server\Instances', False) then
   if Reg.ValueExists ('DefaultInstance') then
      Result := Reg.ReadString('DefaultInstance') + 'Bin';
Reg.Free;

end;

Exemplo de uso da função:

procedure Button1Click(Sender: TObject);

begin

ShowMessage(LocalFirebird);

end;