BDE ja esta instalado???

Question

ola pessoalcomo saber se o BDE ja esta instaladoe como criar um atalho da minha aplicacao na area de trabalhovaleu obrigado...

Sandra · Answer

Anderson,Utilize o �FileExists�. Por exemplo:[code:1:df5f7f0778]if FileExists(�C:Arquivos de programasArquivos comuns               Borland SharedBDEbdeadmin.exe�) thenbegin  // seus comandos;end[/code:1:df5f7f0778]Para criar o atalho, veja se este exemplo do nildo atende sua necessidade: [url=//delphiforum.icft.com.br/forum/viewtopic.php?t=13299]�rea de trabalho[/url].Boa sorte!!...

Anderson_blumenau · Answer

valeu, so mais uma duvidaisso serve pra pcs que nao tenham o delphi instalado certo?e o diretorio de isntalacao do bde eh sempre esse?e se for outro?...

Bacalhau · Answer

A solu��o passa por ir ao registry e verificar se as chaves do BDE est�o l�. Isto � independente do local da instala��o, ao contr�rio do �FileExists�...

Anderson_blumenau · Answer

valeu bacalhau...

Dpinho · Answer

[quote:72c3a2da36=�bacalhau�]A solu��o passa por ir ao registry e verificar se as chaves do BDE est�o l�. Isto � independente do local da instala��o, ao contr�rio do �FileExists�[/quote:72c3a2da36]como fazer esta verifica��o utilizando script do inno setup, qual linha devo procurar?...

Dpinho · Answer

[quote:f0aa8edd24=�bacalhau�]A solu��o passa por ir ao registry e verificar se as chaves do BDE est�o l�. Isto � independente do local da instala��o, ao contr�rio do �FileExists�[/quote:f0aa8edd24]como fazer esta verifica��o utilizando script do inno setup, qual linha devo procurar?...

Rodrigo Costa · Answer

Exemplo de uma fun��o que verifica vest�gios do BDE:

function tem_bde: boolean;
var Reg :  TRegistry;
begin
    Reg := TRegistry.Create;
    Reg.RootKey := HKEY_LOCAL_MACHINE;

    if Reg.KeyExists(�\SOFTWARE\Borland\Database Engine�) then
        result := true
    else
        result := false;

    Reg.Destroy;

end;

F�rum BDE ja esta instalado??? #245523