Como descobrir o diretorio ond firebird está instalado

Delphi

27/08/2007

Olá amigos,
estou configurando meu sistema afim de fazer a verificação de determinadas dlls estão no micro, copiando as que precisam para o diretório do windows ou registrando a que se fizer necessário.

Como faço pra pegar o path do diretório de instalação do firebird?

Att
Mario


Aldus

Aldus

Curtidas 0

Melhor post

Fabiano Góes

Fabiano Góes

20/11/2007

Alguem saberia como capturar o diretório do Firebird?


faço assim:

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;


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



GOSTEI 1

Mais Respostas

Steve_narancic

Steve_narancic

27/08/2007

Alguem saberia como capturar o diretório do Firebird?


GOSTEI 0
POSTAR