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;