function dsCoCreateInstanceAsAdmin(aHWnd: HWND; const aClassID: TGUID; const aIID: TGUID; out aObj; aOleCheck: Boolean = False): HRESULT;
var
 BO: BIND_OPTS3;
 MonikerName: WideString;
begin
 MonikerName := 'Elevation:Administrator!new:' + GUIDToString(aClassID);
 FillChar(BO, SizeOf(BIND_OPTS3), 0);

 BO.cbStruct := SizeOf(BIND_OPTS3);
 BO.dwClassContext := CLSCTX_LOCAL_SERVER;
 BO.hwnd := aHWnd;

 Result:=CoGetObject(PWideChar(MonikerName), @BO, aIID, @aObj);

 if aOleCheck then
  OleCheck(Result);
end;