uses DbiProcs;

function GetDirByDatabase( Database: TDatabase ): string;
var
pszDir: PChar;
begin
pszDir := StrAlloc( 255 );
try
DbiGetDirectory( Database.Handle, True, pszDir );
Result := StrPas( pszDir );
finally
StrDispose( pszDir );
end;
end; 

Получить ссылку на материал