Delphi-Help

Главная Статьи COM и DCOM Как узнать, доступен ли DCOM?

Как узнать, доступен ли DCOM?

Оцените материал
(0 голосов)


Как узнать, доступен ли DCOM?

function IsDCOMEnabled: Boolean;
var
  Ts: string;
  R: TRegistry;
begin
  r := TRegistry.Create;
  r.RootKey := HKEY_LOCAL_MACHINE;
  r.OpenKey('Software\Microsoft\OLE', False);
  ts := AnsiUpperCase(R.ReadString('EnableDCOM'));
  r.Free;
  Result := (Ts = 'Y');
end;

Ещё вариант:

function IsDCOMInstalled: Boolean;
var
  OLE32: HModule;
begin
  Result := not (IsWin95 or IsWin95OSR2);
  if not Result then
  begin
    OLE32 := LoadLibrary(COLE32DLL);
    if OLE32 > 0 then
    try
      Result := GetProcAddress(OLE32, PChar('CoCreateInstanceEx')) <> nil;
    finally
      FreeLibrary(OLE32);
    end;
  end;
end;
Прочитано 2739 раз
Другие материалы в этой категории: « Как обрабатывать ошибки в COM-объектах

Авторизация



Счетчики