Obter path de um Alias do BDE no Delphi

Inclua na seção uses:BDE

{ A função abaixo retorna o path (caminho) de um Alias do
  BDE }



function GetAliasPath(AliasName: String):String;
var
  dbDes: DBDesc;
begin
  Result:='';
  DBiInit(Nil);// invoca o BDE , se não inicializado
  If DbiGetDatabaseDesc(PChar(AliasName), @dbDes)= DBIERR_NONE then
  with dbDes do
    Result:=StrPas(szPhyName);
  DBiExit;// Libera o BDE
end;

Dica enviada por: Angelo Ricardo Miquelin Neto.

Observações

Se a unit em que essa rotina for colocada utilizar as units DB e DBTABLES, as chamadas a DbiInit() e DbiExit() poderão ser omitidas.