uses db;  
  
var  
aliaspath: string[128];  
begin  
aliaspath := Session.GetAliasParams[′MyAlias′].values[′PATH′];  
end;  
  
uses SysUtils,DbiProcs, DBiTypes;  
...  
  
function GetDataBaseDir(const Alias : string): String;  
(* Возвращает каталог базы данных, на которую 
ссылается псевдним (без конечного обратного слеша) *)  
var  
sp: PChar;  
Res: pDBDesc;  
begin  
try  
New(Res);  
sp := StrAlloc(length(Alias)+1);  
StrPCopy(sp,Alias);  
if DbiGetDatabaseDesc(sp,Res) = 0 then  
Result := StrPas(Res^.szPhyName)  
else  
Result := ′′;  
finally  
StrDispose(sp);  
Dispose(Res);  
end;  
end;