Как получить путь псевдонима и таблицы 4


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;



Опубликовал admin
11 Мар, Вторник 2008г.



Программирование для чайников.