Проверка наличия IDAPI

Советы » BDE » Проверка наличия IDAPI

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
.

Проверка наличия IDAPI

Другое по теме:

Категории

Статьи

Советы