Author: Ronald Buster

How to detect if DCOM is installed

Answer:

1   function IsDCOMInstalled: Boolean;
2   var
3     OLE32: HModule;
4   begin
5     Result := not (IsWin95 or IsWin95OSR2);
6     if not Result then
7     begin
8       OLE32 := LoadLibrary(COLE32DLL);
9       if OLE32 > 0 then
10      try
11        Result := GetProcAddress(OLE32, PChar('CoCreateInstanceEx')) <> nil;
12      finally
13        FreeLibrary(OLE32);
14      end;
15    end;
16  end;