function CaminhoAlias;
Var
WAlias : TStringList; //Captura o Alias do Bde
WServidor : String; //Retorna o Caminho
Begin
   wAlias := TStringList.Create;
   Session.GetAliasParams('Fluxo_de_Caixa',WAlias);   // Fluxo_de_Caixa é o
Alias a ser retornado
   WServidor := WAlias[0];                        // o caminho
   WServidor := Copy(WServidor,6,255);
   WServidor := Copy(WServidor,1,(Length(WServidor)));
   Result:= WServidor;
End;

[]
Andrei


Em 09/05/06, pcinfowave <[EMAIL PROTECTED]> escreveu:
>
> Ola...
> Uso access97 com BDE e gostaria de capturar o caminho do alias que está
> gravado no arquivo idapi32.cfg do BDE.
>
> O objetivo é inetrceptar o sistema, caso o programa não consiga se
> conectar ao banco de dados.
>
> Para isso, preciso checar em fileexists se o arquivo q esta configurado
> existe na máquina do cliente. Se tal arquivo não existir, quero exibir
> mensagem e instruções ao usuario.
>
> Alguem pode me dar uma dica?
>
> []´s
> Paulo
>


[As partes desta mensagem que não continham texto foram removidas]



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE


Links do Yahoo! Grupos

Responder a