2009. október 19., hétfő

How to detect if DCOM is installed


Problem/Question/Abstract:

How to detect if DCOM is installed

Answer:

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;

Nincsenek megjegyzések:

Megjegyzés küldése