Para testar se o BDE está instalado, eu faria assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
// dbiInit requer "uses BDE;" uma linha abaixo de "implementation"
if (dbiInit(nil) = 0) then label3.caption := 'BDE está instalado'
else label3.caption := 'BDE não está instalado';
end;
Em 24/10/07, Nivaldo Stainle <[EMAIL PROTECTED]> escreveu:
>
> obrigado, vou testar.
>
> abraços
>
>
> Stainle
>
> Sergio Eurico <[EMAIL PROTECTED] <seurico%40gmail.com>> escreveu:
> Ok... rsrsrs
>
> Escrevi esta funcao em 1999, então, pode haver forma mais pratica de
> fazer.
>
> { Aqui, passo o nome do alias para ser criado, apontando para o diretorio
> do
> .Exe, com base PARADOX. }
> Uso: AliasCreate('studio');
>
> { ----------------------------------------------------------
> }
> function AliasCreate(AliasName:String): Boolean;
> begin
> if not Session.IsAlias(AliasName) then
> begin
> Session.AddStandardAlias(AliasName,ExtractFilePath(
> application.ExeName),'PARADOX');
> Result := True;
> end
> else
> begin
> Result := False;
> end;
> end;
> { ----------------------------------------------------------
> }
>
> Outra versao, mas aqui, apaga o alias antes de criá-lo, caso ja exista.
> Uso: AliasCreate2('studio',dirdest);
>
> { ----------------------------------------------------------
> }
> function AliasCreate2(AliasName, caminho :String): Boolean;
> begin
> with session do begin
> if IsAlias(AliasName) then begin
> DeleteAlias( aliasName );
> SaveConfigFile;
> end;
> AddStandardAlias(AliasName,caminho,'PARADOX');
> SaveConfigFile;
> end;
> Result := True;
> end
>
> ***********************************************************
>
> No help do Delphi, achei o seguinte exemplo.
>
> This example creates an alias for an InterBase database server:
>
> var
>
> MyList: TStringList;
> begin
> MyList := TStringList.Create;
> try
> with MyList do
> begin
> Add('SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB');
> Add('USER NAME=MYNAME');
> end;
> Session1.AddAlias('NewIBAlias', 'INTRBASE', MyList);
> finally
> MyList.Free;
> end;
> end;
>
> ****************
>
> Abraco.
>
> Sergio Eurico.
>
> Em 24/10/07, Nivaldo Stainle <[EMAIL PROTECTED]<stainle2003%40yahoo.com.br>>
> escreveu:
> >
> > o que eu quero é instalar o aliás por programa, o BDE já deve estar na
> > máquina; estou usando o codigo :
> > var
> > AName, ADriver, APath : String;
> > begin
> > AName := 'stainle';
> > ADriver := 'STANDARD';
> > APath := 'c:\remoto\dados';
> > // Inicializa o ambiente do BDE
> > Check(DBInit(nil));
> >
> > // Adiciona Alias ao arquivo de configuração do BDE
> > Check(DBIAddAlias(nil, PChar(AName), PChar(ADriver), PChar('Path:', +
> > APath), True));
> > Check(DBIExit);
> > end;
> > para adicionar o aliás e está dando erro na compilação, não sei qual é
> > CLASSE que devo declarar em USES, pois dá erro em DBInit; passe o teu
> código
> > que me será útil, uso o BDE porque estou trabalhando com PARADOX
> > grato
> >
> > Stainle
> >
> > Sergio Eurico <[EMAIL PROTECTED]
> > <seurico%40gmail.com><seurico%40gmail.com>> escreveu:
> > Olá,
> >
> > Nao sei se entendi... Entao, algumas opcoes.
> >
> > a) Voce instalou o Delphi 5 na sua maquina e nao sabe se tem o BDE?
> > R: verifique no iniciar, programas, borland, delphi 5 se tem o BDE
> > Administrator.
> >
> > b) Voce, ao iniciar o seu sistema no computador de um cliente, quer
> > verificar se ele ja tem o BDE instalado e caso nao tenha, que o sistema
> > instale? E depois verifique se o Alias ja foi criado, e nao havendo, que
> > se
> > crie... é isso?
> > R: tenho uma rotina que faz isso num sistema Beeeemmmm antigo. Se for
> isso
> > te passo o codigo fonte (ainda vou procurar), pra voce implementar.
> >
> > Bom, acredito que voce tem OTIMOS ( bons seriam poucos ) motivos pra
> usar
> > BDE.... principalmente se for em rede, mas tudo bem.
> >
> > Abraco.
> >
> > Em 24/10/07, stainle2003 <[EMAIL PROTECTED]<stainle2003%40yahoo.com.br>
> <stainle2003%40yahoo.com.br>>
> > escreveu:
> > >
> > > Utilizando Delphi 5, gostaria se saber se já existe o BDE instalado no
> > > computador e depois instalar o "álias", estou tentando fazer esta
> > > operação :
> > >
> > > // Inicializa o ambiente do BDE
> > > Check(DBInit(nil));
> > >
> > > dá um erro de compilação, qual seria a UNIT que tenho que declarar em
> > > USES ??
> > >
> > > grato
> > >
> > > Stainle
> > >
> > >
> > >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> > armazenamento!
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
