13 #include "debugtools.h"
15 DEFAULT_DEBUG_CHANNEL(ole);
17 static WCHAR _delimiter[2] = {'!',0}; /* default delimiter apparently */
18 static WCHAR *pdelimiter = &_delimiter[0];
20 /***********************************************************************
21 * RegisterActiveObject
23 HRESULT WINAPI RegisterActiveObject(
24 LPUNKNOWN punk,REFCLSID rcid,DWORD dwFlags,LPDWORD pdwRegister
28 LPRUNNINGOBJECTTABLE runobtable;
31 StringFromGUID2(rcid,guidbuf,39);
32 ret = CreateItemMoniker(pdelimiter,guidbuf,&moniker);
35 ret = GetRunningObjectTable(0,&runobtable);
37 IMoniker_Release(moniker);
40 ret = IRunningObjectTable_Register(runobtable,dwFlags,punk,moniker,pdwRegister);
41 IRunningObjectTable_Release(runobtable);
42 IMoniker_Release(moniker);
46 /***********************************************************************
49 HRESULT WINAPI RevokeActiveObject(DWORD xregister,LPVOID reserved)
51 LPRUNNINGOBJECTTABLE runobtable;
54 ret = GetRunningObjectTable(0,&runobtable);
55 if (FAILED(ret)) return ret;
56 ret = IRunningObjectTable_Revoke(runobtable,xregister);
57 if (SUCCEEDED(ret)) ret = S_OK;
58 IRunningObjectTable_Release(runobtable);
62 /***********************************************************************
65 HRESULT WINAPI GetActiveObject(REFCLSID rcid,LPVOID preserved,LPUNKNOWN *ppunk)
69 LPRUNNINGOBJECTTABLE runobtable;
72 StringFromGUID2(rcid,guidbuf,39);
73 ret = CreateItemMoniker(pdelimiter,guidbuf,&moniker);
76 ret = GetRunningObjectTable(0,&runobtable);
78 IMoniker_Release(moniker);
81 ret = IRunningObjectTable_GetObject(runobtable,moniker,ppunk);
82 IRunningObjectTable_Release(runobtable);
83 IMoniker_Release(moniker);
87 /***********************************************************************
88 * OaBuildVersion [OLEAUT32.170]
90 * known OLEAUT32.DLL versions:
91 * OLE 2.1 NT 1993-95 10 3023
93 * OLE 2.20 W95/NT 1993-96 20 4112
94 * OLE 2.20 W95/NT 1993-96 20 4118
95 * OLE 2.20 W95/NT 1993-96 20 4122
96 * OLE 2.30 W95/NT 1993-98 30 4265
97 * OLE 2.40 NT?? 1993-98 40 4267
98 * OLE 2.40 W98 SE orig. file 1993-98 40 4275
100 UINT WINAPI OaBuildVersion()
102 FIXME("Please report to a.mohr@mailto.de if you get version error messages !\n");
103 switch(GetVersion() & 0x8000ffff) /* mask off build number */
105 case 0x80000a03: /* WIN31 */
106 return MAKELONG(4049, 20); /* from Win32s 1.1e */
107 case 0x80000004: /* WIN95 */
108 return MAKELONG(4265, 30);
109 case 0x80000a04: /* WIN98 */
110 return MAKELONG(4275, 40); /* value of W98 SE; orig. W98 AFAIK has 4265, 30 just as W95 */
111 case 0x00003303: /* NT351 */
112 return MAKELONG(4265, 30); /* value borrowed from Win95 */
113 case 0x00000004: /* NT40 */
114 return MAKELONG(4122, 20); /* ouch ! Quite old, I guess */
116 ERR("Version value not known yet. Please investigate it !\n");
121 /***********************************************************************
124 HRESULT WINAPI OLEAUT32_DllRegisterServer() {
129 /***********************************************************************
130 * DllUnregisterServer
132 HRESULT WINAPI OLEAUT32_DllUnregisterServer() {