Alias所指向的数据库的目录

如何知道Alias所指向的数据库的目录？ 　
下面这段程序, 可以查出某一个 Alias 的目录,不妨可以参考看看:
// Delphi 1.0 取得 Alias 的实际路径
// uses DB, DBTables, DBConsts, DbiTypes, DbiProcs, DbiErrs;
function GetAliasPath(const sAliasName: string): string;
var
szName: array[0..100] of char;
Desc: DBDesc;
wResult: DBIResult;
begin
Result := '';
StrPLCopy(szName, sAliasName, High(szName));
wResult := DbiGetDatabaseDesc(szName, @Desc);
if wResult = DBIERR_NONE then
Result := StrPas(Desc.szPhyName);
end;