Delphi 1
Проверка наличия 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. |
[000623]