2 * self-registerable dll functions for ole32.dll
4 * Copyright (C) 2003 John K. Hohm
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
35 #include "wine/debug.h"
37 WINE_DEFAULT_DEBUG_CHANNEL(ole
);
40 * Near the bottom of this file are the exported DllRegisterServer and
41 * DllUnregisterServer, which make all this worthwhile.
44 /***********************************************************************
45 * interface for self-registering
47 struct regsvr_interface
49 IID
const *iid
; /* NULL for end of list */
50 LPCSTR name
; /* can be NULL to omit */
51 IID
const *base_iid
; /* can be NULL to omit */
52 int num_methods
; /* can be <0 to omit */
53 CLSID
const *ps_clsid
; /* can be NULL to omit */
54 CLSID
const *ps_clsid32
; /* can be NULL to omit */
57 static HRESULT
register_interfaces(struct regsvr_interface
const *list
);
58 static HRESULT
unregister_interfaces(struct regsvr_interface
const *list
);
62 CLSID
const *clsid
; /* NULL for end of list */
63 LPCSTR name
; /* can be NULL to omit */
64 LPCSTR ips
; /* can be NULL to omit */
65 LPCSTR ips32
; /* can be NULL to omit */
66 LPCSTR ips32_tmodel
; /* can be NULL to omit */
69 static HRESULT
register_coclasses(struct regsvr_coclass
const *list
);
70 static HRESULT
unregister_coclasses(struct regsvr_coclass
const *list
);
72 /***********************************************************************
73 * static string constants
75 static WCHAR
const interface_keyname
[10] = {
76 'I', 'n', 't', 'e', 'r', 'f', 'a', 'c', 'e', 0 };
77 static WCHAR
const base_ifa_keyname
[14] = {
78 'B', 'a', 's', 'e', 'I', 'n', 't', 'e', 'r', 'f', 'a', 'c',
80 static WCHAR
const num_methods_keyname
[11] = {
81 'N', 'u', 'm', 'M', 'e', 't', 'h', 'o', 'd', 's', 0 };
82 static WCHAR
const ps_clsid_keyname
[15] = {
83 'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
85 static WCHAR
const ps_clsid32_keyname
[17] = {
86 'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
87 'i', 'd', '3', '2', 0 };
88 static WCHAR
const clsid_keyname
[6] = {
89 'C', 'L', 'S', 'I', 'D', 0 };
90 static WCHAR
const ips_keyname
[13] = {
91 'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
93 static WCHAR
const ips32_keyname
[15] = {
94 'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
96 static char const tmodel_valuename
[] = "ThreadingModel";
98 /***********************************************************************
99 * static helper functions
101 static LONG
register_key_guid(HKEY base
, WCHAR
const *name
, GUID
const *guid
);
102 static LONG
register_key_defvalueW(HKEY base
, WCHAR
const *name
,
104 static LONG
register_key_defvalueA(HKEY base
, WCHAR
const *name
,
106 static LONG
recursive_delete_key(HKEY key
);
109 /***********************************************************************
110 * register_interfaces
112 static HRESULT
register_interfaces(struct regsvr_interface
const *list
)
114 LONG res
= ERROR_SUCCESS
;
117 res
= RegCreateKeyExW(HKEY_CLASSES_ROOT
, interface_keyname
, 0, NULL
, 0,
118 KEY_READ
| KEY_WRITE
, NULL
, &interface_key
, NULL
);
119 if (res
!= ERROR_SUCCESS
) goto error_return
;
121 for (; res
== ERROR_SUCCESS
&& list
->iid
; ++list
) {
125 StringFromGUID2(list
->iid
, buf
, 39);
126 res
= RegCreateKeyExW(interface_key
, buf
, 0, NULL
, 0,
127 KEY_READ
| KEY_WRITE
, NULL
, &iid_key
, NULL
);
128 if (res
!= ERROR_SUCCESS
) goto error_close_interface_key
;
131 res
= RegSetValueExA(iid_key
, NULL
, 0, REG_SZ
,
132 (CONST BYTE
*)(list
->name
),
133 strlen(list
->name
) + 1);
134 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
137 if (list
->base_iid
) {
138 register_key_guid(iid_key
, base_ifa_keyname
, list
->base_iid
);
139 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
142 if (0 <= list
->num_methods
) {
143 static WCHAR
const fmt
[3] = { '%', 'd', 0 };
146 res
= RegCreateKeyExW(iid_key
, num_methods_keyname
, 0, NULL
, 0,
147 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
148 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
150 wsprintfW(buf
, fmt
, list
->num_methods
);
151 res
= RegSetValueExW(key
, NULL
, 0, REG_SZ
,
153 (lstrlenW(buf
) + 1) * sizeof(WCHAR
));
156 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
159 if (list
->ps_clsid
) {
160 register_key_guid(iid_key
, ps_clsid_keyname
, list
->ps_clsid
);
161 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
164 if (list
->ps_clsid32
) {
165 register_key_guid(iid_key
, ps_clsid32_keyname
, list
->ps_clsid32
);
166 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
170 RegCloseKey(iid_key
);
173 error_close_interface_key
:
174 RegCloseKey(interface_key
);
176 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
179 /***********************************************************************
180 * unregister_interfaces
182 static HRESULT
unregister_interfaces(struct regsvr_interface
const *list
)
184 LONG res
= ERROR_SUCCESS
;
187 res
= RegOpenKeyExW(HKEY_CLASSES_ROOT
, interface_keyname
, 0,
188 KEY_READ
| KEY_WRITE
, &interface_key
);
189 if (res
== ERROR_FILE_NOT_FOUND
) return S_OK
;
190 if (res
!= ERROR_SUCCESS
) goto error_return
;
192 for (; res
== ERROR_SUCCESS
&& list
->iid
; ++list
) {
196 StringFromGUID2(list
->iid
, buf
, 39);
197 res
= RegOpenKeyExW(interface_key
, buf
, 0,
198 KEY_READ
| KEY_WRITE
, &iid_key
);
199 if (res
== ERROR_FILE_NOT_FOUND
) {
203 if (res
!= ERROR_SUCCESS
) goto error_close_interface_key
;
204 res
= recursive_delete_key(iid_key
);
205 RegCloseKey(iid_key
);
206 if (res
!= ERROR_SUCCESS
) goto error_close_interface_key
;
209 error_close_interface_key
:
210 RegCloseKey(interface_key
);
212 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
215 /***********************************************************************
218 static HRESULT
register_coclasses(struct regsvr_coclass
const *list
)
220 LONG res
= ERROR_SUCCESS
;
223 res
= RegCreateKeyExW(HKEY_CLASSES_ROOT
, clsid_keyname
, 0, NULL
, 0,
224 KEY_READ
| KEY_WRITE
, NULL
, &coclass_key
, NULL
);
225 if (res
!= ERROR_SUCCESS
) goto error_return
;
227 for (; res
== ERROR_SUCCESS
&& list
->clsid
; ++list
) {
231 StringFromGUID2(list
->clsid
, buf
, 39);
232 res
= RegCreateKeyExW(coclass_key
, buf
, 0, NULL
, 0,
233 KEY_READ
| KEY_WRITE
, NULL
, &clsid_key
, NULL
);
234 if (res
!= ERROR_SUCCESS
) goto error_close_coclass_key
;
237 res
= RegSetValueExA(clsid_key
, NULL
, 0, REG_SZ
,
238 (CONST BYTE
*)(list
->name
),
239 strlen(list
->name
) + 1);
240 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
244 res
= register_key_defvalueA(clsid_key
, ips_keyname
, list
->ips
);
245 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
251 res
= RegCreateKeyExW(clsid_key
, ips32_keyname
, 0, NULL
, 0,
252 KEY_READ
| KEY_WRITE
, NULL
,
254 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
256 res
= RegSetValueExA(ips32_key
, NULL
, 0, REG_SZ
,
257 (CONST BYTE
*)list
->ips32
,
258 lstrlenA(list
->ips32
) + 1);
259 if (res
== ERROR_SUCCESS
&& list
->ips32_tmodel
)
260 res
= RegSetValueExA(ips32_key
, tmodel_valuename
, 0, REG_SZ
,
261 (CONST BYTE
*)list
->ips32_tmodel
,
262 strlen(list
->ips32_tmodel
) + 1);
263 RegCloseKey(ips32_key
);
264 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
267 error_close_clsid_key
:
268 RegCloseKey(clsid_key
);
271 error_close_coclass_key
:
272 RegCloseKey(coclass_key
);
274 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
277 /***********************************************************************
278 * unregister_coclasses
280 static HRESULT
unregister_coclasses(struct regsvr_coclass
const *list
)
282 LONG res
= ERROR_SUCCESS
;
285 res
= RegOpenKeyExW(HKEY_CLASSES_ROOT
, clsid_keyname
, 0,
286 KEY_READ
| KEY_WRITE
, &coclass_key
);
287 if (res
== ERROR_FILE_NOT_FOUND
) return S_OK
;
288 if (res
!= ERROR_SUCCESS
) goto error_return
;
290 for (; res
== ERROR_SUCCESS
&& list
->clsid
; ++list
) {
294 StringFromGUID2(list
->clsid
, buf
, 39);
295 res
= RegOpenKeyExW(coclass_key
, buf
, 0,
296 KEY_READ
| KEY_WRITE
, &clsid_key
);
297 if (res
== ERROR_FILE_NOT_FOUND
) {
301 if (res
!= ERROR_SUCCESS
) goto error_close_coclass_key
;
302 res
= recursive_delete_key(clsid_key
);
303 RegCloseKey(clsid_key
);
304 if (res
!= ERROR_SUCCESS
) goto error_close_coclass_key
;
307 error_close_coclass_key
:
308 RegCloseKey(coclass_key
);
310 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
313 /***********************************************************************
316 static LONG
register_key_guid(HKEY base
, WCHAR
const *name
, GUID
const *guid
)
320 StringFromGUID2(guid
, buf
, 39);
321 return register_key_defvalueW(base
, name
, buf
);
324 /***********************************************************************
325 * regsvr_key_defvalueW
327 static LONG
register_key_defvalueW(
335 res
= RegCreateKeyExW(base
, name
, 0, NULL
, 0,
336 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
337 if (res
!= ERROR_SUCCESS
) return res
;
338 res
= RegSetValueExW(key
, NULL
, 0, REG_SZ
, (CONST BYTE
*)value
,
339 (lstrlenW(value
) + 1) * sizeof(WCHAR
));
344 /***********************************************************************
345 * regsvr_key_defvalueA
347 static LONG
register_key_defvalueA(
355 res
= RegCreateKeyExW(base
, name
, 0, NULL
, 0,
356 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
357 if (res
!= ERROR_SUCCESS
) return res
;
358 res
= RegSetValueExA(key
, NULL
, 0, REG_SZ
, (CONST BYTE
*)value
,
359 lstrlenA(value
) + 1);
364 /***********************************************************************
365 * recursive_delete_key
367 static LONG
recursive_delete_key(HKEY key
)
370 WCHAR subkey_name
[MAX_PATH
];
375 cName
= sizeof(subkey_name
) / sizeof(WCHAR
);
376 res
= RegEnumKeyExW(key
, 0, subkey_name
, &cName
,
377 NULL
, NULL
, NULL
, NULL
);
378 if (res
!= ERROR_SUCCESS
&& res
!= ERROR_MORE_DATA
) {
379 res
= ERROR_SUCCESS
; /* presumably we're done enumerating */
382 res
= RegOpenKeyExW(key
, subkey_name
, 0,
383 KEY_READ
| KEY_WRITE
, &subkey
);
384 if (res
== ERROR_FILE_NOT_FOUND
) continue;
385 if (res
!= ERROR_SUCCESS
) break;
387 res
= recursive_delete_key(subkey
);
389 if (res
!= ERROR_SUCCESS
) break;
392 if (res
== ERROR_SUCCESS
) res
= RegDeleteKeyW(key
, 0);
396 /***********************************************************************
399 static GUID
const CLSID_FileMoniker
= {
400 0x00000303, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
402 static GUID
const CLSID_ItemMoniker
= {
403 0x00000304, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
405 /* FIXME: DfMarshal and PSFactoryBuffer are defined elsewhere too */
407 static GUID
const CLSID_DfMarshal
= {
408 0x0000030B, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
410 static GUID
const CLSID_PSFactoryBuffer
= {
411 0x00000320, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
413 static struct regsvr_coclass
const coclass_list
[] = {
414 { &CLSID_FileMoniker
,
420 { &CLSID_ItemMoniker
,
432 { &CLSID_PSFactoryBuffer
,
438 { &CLSID_StdGlobalInterfaceTable
,
439 "StdGlobalInterfaceTable",
444 { NULL
} /* list terminator */
447 /***********************************************************************
451 /* FIXME: perhaps the interfaces that are proxied by another dll
452 * should be registered in that dll? Or maybe the choice of proxy is
453 * arbitrary at this point? */
455 static GUID
const CLSID_PSFactoryBuffer_ole2disp
= {
456 0x00020420, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
458 static GUID
const CLSID_PSFactoryBuffer_oleaut32
= {
459 0xB196B286, 0xBAB4, 0x101A, {0xB6,0x9C,0x00,0xAA,0x00,0x34,0x1D,0x07} };
461 /* FIXME: these interfaces should be defined in ocidl.idl */
463 static IID
const IID_IFontEventsDisp
= {
464 0x4EF6100A, 0xAF88, 0x11D0, {0x98,0x46,0x00,0xC0,0x4F,0xC2,0x99,0x93} };
466 static IID
const IID_IProvideMultipleClassInfo
= {
467 0xA7ABA9C1, 0x8983, 0x11CF, {0x8F,0x20,0x00,0x80,0x5F,0x2C,0xD0,0x64} };
469 static IID
const IID_IObjectWithSite
= {
470 0xFC4801A3, 0x2BA9, 0x11CF, {0xA2,0x29,0x00,0xAA,0x00,0x3D,0x73,0x52} };
472 static struct regsvr_interface
const interface_list
[] = {
478 &CLSID_PSFactoryBuffer
480 { &IID_IClassFactory
,
485 &CLSID_PSFactoryBuffer
492 &CLSID_PSFactoryBuffer
499 &CLSID_PSFactoryBuffer
501 { &IID_IPersistStorage
,
506 &CLSID_PSFactoryBuffer
513 &CLSID_PSFactoryBuffer
520 &CLSID_PSFactoryBuffer
527 &CLSID_PSFactoryBuffer
529 { &IID_IOleClientSite
,
534 &CLSID_PSFactoryBuffer
540 &CLSID_PSFactoryBuffer_ole2disp
,
541 &CLSID_PSFactoryBuffer_ole2disp
548 &CLSID_PSFactoryBuffer_ole2disp
555 &CLSID_PSFactoryBuffer_ole2disp
557 { &IID_IPropertyPage2
,
562 &CLSID_PSFactoryBuffer_oleaut32
569 &CLSID_PSFactoryBuffer_oleaut32
571 { &IID_ICreateErrorInfo
,
576 &CLSID_PSFactoryBuffer_oleaut32
578 { &IID_IPersistPropertyBag2
,
579 "IPersistPropertyBag2",
583 &CLSID_PSFactoryBuffer_oleaut32
585 { &IID_IPropertyBag2
,
590 &CLSID_PSFactoryBuffer_oleaut32
597 &CLSID_PSFactoryBuffer_oleaut32
599 { &IID_IPerPropertyBrowsing
,
600 "IPerPropertyBrowsing",
604 &CLSID_PSFactoryBuffer_oleaut32
606 { &IID_IPersistPropertyBag
,
607 "IPersistPropertyBag",
611 &CLSID_PSFactoryBuffer_oleaut32
613 { &IID_IAdviseSinkEx
,
618 &CLSID_PSFactoryBuffer_oleaut32
620 { &IID_IFontEventsDisp
,
625 &CLSID_PSFactoryBuffer_oleaut32
632 &CLSID_PSFactoryBuffer_oleaut32
634 { &IID_IPointerInactive
,
639 &CLSID_PSFactoryBuffer_oleaut32
641 { &IID_ISimpleFrameSite
,
646 &CLSID_PSFactoryBuffer_oleaut32
653 &CLSID_PSFactoryBuffer_oleaut32
660 &CLSID_PSFactoryBuffer_oleaut32
662 { &IID_IPersistStreamInit
,
663 "IPersistStreamInit",
667 &CLSID_PSFactoryBuffer_oleaut32
674 &CLSID_PSFactoryBuffer_oleaut32
676 { &IID_IPropertyNotifySink
,
677 "IPropertyNotifySink",
681 &CLSID_PSFactoryBuffer_oleaut32
683 { &IID_IOleInPlaceSiteEx
,
688 &CLSID_PSFactoryBuffer_oleaut32
690 { &IID_IOleParentUndoUnit
,
691 "IOleParentUndoUnit",
695 &CLSID_PSFactoryBuffer_oleaut32
697 { &IID_IProvideClassInfo2
,
698 "IProvideClassInfo2",
702 &CLSID_PSFactoryBuffer_oleaut32
704 { &IID_IProvideMultipleClassInfo
,
705 "IProvideMultipleClassInfo",
709 &CLSID_PSFactoryBuffer_oleaut32
711 { &IID_IProvideClassInfo
,
716 &CLSID_PSFactoryBuffer_oleaut32
718 { &IID_IConnectionPointContainer
,
719 "IConnectionPointContainer",
723 &CLSID_PSFactoryBuffer_oleaut32
725 { &IID_IEnumConnectionPoints
,
726 "IEnumConnectionPoints",
730 &CLSID_PSFactoryBuffer_oleaut32
732 { &IID_IConnectionPoint
,
737 &CLSID_PSFactoryBuffer_oleaut32
739 { &IID_IEnumConnections
,
744 &CLSID_PSFactoryBuffer_oleaut32
751 &CLSID_PSFactoryBuffer_oleaut32
753 { &IID_IOleControlSite
,
758 &CLSID_PSFactoryBuffer_oleaut32
760 { &IID_ISpecifyPropertyPages
,
761 "ISpecifyPropertyPages",
765 &CLSID_PSFactoryBuffer_oleaut32
767 { &IID_IPropertyPageSite
,
772 &CLSID_PSFactoryBuffer_oleaut32
774 { &IID_IPropertyPage
,
779 &CLSID_PSFactoryBuffer_oleaut32
781 { &IID_IClassFactory2
,
786 &CLSID_PSFactoryBuffer_oleaut32
788 { &IID_IEnumOleUndoUnits
,
793 &CLSID_PSFactoryBuffer_oleaut32
795 { &IID_IPersistMemory
,
800 &CLSID_PSFactoryBuffer_oleaut32
807 &CLSID_PSFactoryBuffer_oleaut32
814 &CLSID_PSFactoryBuffer_oleaut32
816 { &IID_IQuickActivate
,
821 &CLSID_PSFactoryBuffer_oleaut32
823 { &IID_IOleUndoManager
,
828 &CLSID_PSFactoryBuffer_oleaut32
830 { &IID_IObjectWithSite
,
835 &CLSID_PSFactoryBuffer_oleaut32
837 { NULL
} /* list terminator */
840 /***********************************************************************
841 * DllRegisterServer (OLE32.@)
843 HRESULT WINAPI
OLE32_DllRegisterServer()
849 hr
= register_coclasses(coclass_list
);
851 hr
= register_interfaces(interface_list
);
855 /***********************************************************************
856 * DllUnregisterServer (OLE32.@)
858 HRESULT WINAPI
OLE32_DllUnregisterServer()
864 hr
= unregister_coclasses(coclass_list
);
866 hr
= unregister_interfaces(interface_list
);