Проверка наличия 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

.

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com