Obtendo o diretório de uma alias

Uses BDE

function AliasToPath(Alias : String) : String;
var
Desc : dbDesc;
szAlias : Array[0..255] of Char;
begin
StrPCopy(szAlias,Alias);
DbiGetDatabaseDesc(szAlias,@Desc);
Result := StrPas(Desc.szPhyName);
end;