unitFindbde; 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
.