Fórum Como descobrir o diretorio ond firebird está instalado #345124

function GetRegistryValue(const AKey, AValue: String): String;
var
  Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  try
    with Reg do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey (AKey, False) then
        if ValueExists (AValue) then
          Result := ReadString(AValue);
      CloseKey;
    end;
  finally
    FreeAndNil(Reg);
  end;
end;

lblFirebird.Caption := GetRegistryValue( ´SOFTWARE\Firebird Project\Firebird Server\Instances´,  ´DefaultInstance´);