Поверка версии Microsoft OLE DB JET 4.X

Поверка версии Microsoft OLE DB JET 4.X

{ **** UBPFD *********** by kladovka.net.ru ****
>>
Функция определяет, установлен ли набор драйверов
Microsoft OLE DB JET 4.X на компьютере. Пригодится
для тех, кто использует СУБД Accsess. Можно
использовать при инициализации главного DataModule,
формы и т.д.
В принципе, функцию можно использовать для определения
доступности любого поставщика данных : Oracle, MSSQL и т.д.
Функция работает намного быстрее, чем ADODB.GetProviderNames();
Зависимости: ADODB, ActiveX, OleDB
Автор: Мироводин Дмитрий, <a href="mailto:support@hcsoft.spb.ru">support@hcsoft.spb.ru</a>, Санкт - Петербург
Copyright: Мироводин Дмитрий
Дата: 7 июля 2004 г.
********************************************** }

Function CheckMSJetVersion: Integer;
Const
 CLSID_JETOLEDB_4_00: TGUID = '{DEE35070-506B-11CF-B1AA-00AA00B8DE95}';
Var
 hR : HRESULT;
 OutParam : IUnknown;
Begin
 Result := -1;
 hR := CoCreateInstance(
  CLSID_JETOLEDB_4_00,
  Nil,
  CLSCTX_INPROC_SERVER,
  IID_IDBInitialize,
  OutParam);
 If (hR = S_OK) And (OutParam <> Nil) Then
  Begin
  OutParam := Nil;
  Result := 1;
  End;
End;

Пример использования:

...

if (CheckMSJetVersion < 0) then

 begin

  ShowMessage('На машине не установлен MS Jet. ');

  Application.Terminate;

 end;

...

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...