Author: Ronald Buster

How to detect if DCOM is enabled

Answer:

1   function IsDCOMEnabled: Boolean;
2   var
3     Ts: string;
4     R: TRegistry;
5   begin
6     r := TRegistry.Create;
7     r.RootKey := HKEY_LOCAL_MACHINE;
8     r.OpenKey('Software\Microsoft\OLE', False);
9     ts := AnsiUpperCase(R.ReadString('EnableDCOM'));
10    r.Free;
11    Result := (Ts = 'Y');
12  end;