unit Findbde;

interface

implementation
uses
Controls, SysUtils, WinTypes, WinProcs, Dialogs;

var
IdapiPath: array[0..255] of Char;
IdapiHandle: THandle;

initialization

GetProfileString(’IDAPI’, ‘DLLPath’, ‘C:\’, IdapiPath, 255);
{следующие строки “изолируют” первый путь к каталогу
из IdapiPath в случае, если их несколько}
if Pos(’;', StrPas(IdapiPath)) <> 0 then
begin
StrPCopy(IdapiPath, Copy(StrPas(IdapiPath), 1,
Pred(Pos(’;', StrPas(IdapiPath)))));
end;
IdapiHandle := LoadLibrary(StrCat(IdapiPath, ‘\IDAPI01.DLL’));
if IdapiHandle < HINSTANCE_ERROR then
begin
if MessageDlg(’ОШИБКА: Borland Database Engine (IDAPI) не найдена’ +
‘перед следующей попыткой ее необходимо установить….’,
mtError, [mbOK], 0) = mrOK then
Halt
end
{ IDAPI в системе не установлена }
else
begin
FreeLibrary(IdapiHandle);
{ IDAPI Установлена в системе }
end;

end.

Эта запись была опубликована 14.12.2007в 14:16. В рубриках: BDE, Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.