Alias所指向的数据库的目录

uses db;
var aliaspath : string[128];
begin
 aliaspath::= Session.GetAliasParams['MyAlias'].values['PATH'];
end;

// 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;