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.