function GetDBPath1(AliasName: string): TFileName;  
var  
ParamList: TStringList;  
begin  
ParamList := TStringList.Create;  
with Session do  
try  
GetAliasParams(AliasName, ParamList);  
Result := UpperCase(ParamList.Values[′PATH′]) + ′′;  
finally  
Paramlist.Free;  
end;  
end;  
  
function GetDBPath2(AliasName: string): TFileName;  
var  
ParamList: TStringList;  
i: integer;  
begin  
ParamList := TStringList.Create;  
with Session do  
try  
try  
GetAliasParams(AliasName, ParamList);  
except  
for i := 0 to pred(DatabaseCount) do  
if (Databases.DatabaseName = AliasName) then  
ParamList.Assign(Databases.Params);  
end;  
Result := UpperCase(ParamList.Values[′PATH′]) + ′′;  
finally  
Paramlist.Free;  
end;  
end;  
  
function GetDBPath3(ATable: TTable): TFileName;  
var  
TblProps: CURProps;  
pTblName, pFullName: DBITblName;  
begin  
with ATable do  
begin  
AnsiToNative(Locale, TableName, pTblName, 255);  
Check(DBIGetCursorProps(Handle, TblProps));  
Check(DBIFormFullName(DBHandle,  
pTblName,  
TblProps.szTableType,  
pFullName));  
Result := ExtractFilePath(StrPas(pFullName));  
end;  
end;