Как узнать расположение локальной БД по ее Alias


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г.



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