BDE ja esta instalado???

Delphi

03/08/2004

ola pessoal

como saber se o BDE ja esta instalado
e como criar um atalho da minha aplicacao na area de trabalho

valeu obrigado


Anderson_blumenau

Anderson_blumenau

Curtidas 0

Respostas

Sandra

Sandra

03/08/2004

Anderson,

Utilize o ´FileExists´. Por exemplo:

if FileExists(´C:\Arquivos de programas\Arquivos comuns\
               Borland Shared\BDE\bdeadmin.exe´) then
begin
  // seus comandos;
end


Para criar o atalho, veja se este exemplo do nildo atende sua necessidade: [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=13299]Área de trabalho[/url].


Boa sorte!!


GOSTEI 0
Anderson_blumenau

Anderson_blumenau

03/08/2004

valeu, so mais uma duvida

isso serve pra pcs que nao tenham o delphi instalado certo?
e o diretorio de isntalacao do bde eh sempre esse?e se for outro?


GOSTEI 0
Bacalhau

Bacalhau

03/08/2004

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´


GOSTEI 0
Anderson_blumenau

Anderson_blumenau

03/08/2004

valeu bacalhau


GOSTEI 0
Dpinho

Dpinho

03/08/2004

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´


como fazer esta verificação utilizando script do inno setup, qual linha devo procurar?


GOSTEI 0
Dpinho

Dpinho

03/08/2004

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´


como fazer esta verificação utilizando script do inno setup, qual linha devo procurar?


GOSTEI 0
Rodrigo Costa

Rodrigo Costa

03/08/2004

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;



GOSTEI 0
POSTAR