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
32 #include "wine/debug.h"
34 WINE_DEFAULT_DEBUG_CHANNEL(ole);
37 * Near the bottom of this file are the exported DllRegisterServer and
38 * DllUnregisterServer, which make all this worthwhile.
41 /***********************************************************************
42 * interface for self-registering
44 struct regsvr_interface
46 IID const *iid; /* NULL for end of list */
47 LPCSTR name; /* can be NULL to omit */
48 IID const *base_iid; /* can be NULL to omit */
49 int num_methods; /* can be <0 to omit */
50 CLSID const *ps_clsid; /* can be NULL to omit */
51 CLSID const *ps_clsid32; /* can be NULL to omit */
54 static HRESULT register_interfaces(struct regsvr_interface const *list);
55 static HRESULT unregister_interfaces(struct regsvr_interface const *list);
59 CLSID const *clsid; /* NULL for end of list */
60 LPCSTR name; /* can be NULL to omit */
61 LPCSTR ips; /* can be NULL to omit */
62 LPCSTR ips32; /* can be NULL to omit */
63 LPCSTR ips32_tmodel; /* can be NULL to omit */
66 static HRESULT register_coclasses(struct regsvr_coclass const *list);
67 static HRESULT unregister_coclasses(struct regsvr_coclass const *list);
69 /***********************************************************************
70 * static string constants
72 static WCHAR const interface_keyname[10] = {
73 'I', 'n', 't', 'e', 'r', 'f', 'a', 'c', 'e', 0 };
74 static WCHAR const base_ifa_keyname[14] = {
75 'B', 'a', 's', 'e', 'I', 'n', 't', 'e', 'r', 'f', 'a', 'c',
77 static WCHAR const num_methods_keyname[11] = {
78 'N', 'u', 'm', 'M', 'e', 't', 'h', 'o', 'd', 's', 0 };
79 static WCHAR const ps_clsid_keyname[15] = {
80 'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
82 static WCHAR const ps_clsid32_keyname[17] = {
83 'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
84 'i', 'd', '3', '2', 0 };
85 static WCHAR const clsid_keyname[6] = {
86 'C', 'L', 'S', 'I', 'D', 0 };
87 static WCHAR const ips_keyname[13] = {
88 'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
90 static WCHAR const ips32_keyname[15] = {
91 'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
93 static char const tmodel_valuename[] = "ThreadingModel";
95 /***********************************************************************
96 * static helper functions
98 static LONG register_key_guid(HKEY base, WCHAR const *name, GUID const *guid);
99 static LONG register_key_defvalueW(HKEY base, WCHAR const *name,
101 static LONG register_key_defvalueA(HKEY base, WCHAR const *name,
103 static LONG recursive_delete_key(HKEY key);
106 /***********************************************************************
107 * register_interfaces
109 static HRESULT register_interfaces(struct regsvr_interface const *list)
111 LONG res = ERROR_SUCCESS;
114 res = RegCreateKeyExW(HKEY_CLASSES_ROOT, interface_keyname, 0, NULL, 0,
115 KEY_READ | KEY_WRITE, NULL, &interface_key, NULL);
116 if (res != ERROR_SUCCESS) goto error_return;
118 for (; res == ERROR_SUCCESS && list->iid; ++list) {
122 StringFromGUID2(list->iid, buf, 39);
123 res = RegCreateKeyExW(interface_key, buf, 0, NULL, 0,
124 KEY_READ | KEY_WRITE, NULL, &iid_key, NULL);
125 if (res != ERROR_SUCCESS) goto error_close_interface_key;
128 res = RegSetValueExA(iid_key, NULL, 0, REG_SZ,
129 (CONST BYTE*)(list->name),
130 strlen(list->name) + 1);
131 if (res != ERROR_SUCCESS) goto error_close_iid_key;
134 if (list->base_iid) {
135 register_key_guid(iid_key, base_ifa_keyname, list->base_iid);
136 if (res != ERROR_SUCCESS) goto error_close_iid_key;
139 if (0 <= list->num_methods) {
140 static WCHAR const fmt[3] = { '%', 'd', 0 };
143 res = RegCreateKeyExW(iid_key, num_methods_keyname, 0, NULL, 0,
144 KEY_READ | KEY_WRITE, NULL, &key, NULL);
145 if (res != ERROR_SUCCESS) goto error_close_iid_key;
147 wsprintfW(buf, fmt, list->num_methods);
148 res = RegSetValueExW(key, NULL, 0, REG_SZ,
150 (lstrlenW(buf) + 1) * sizeof(WCHAR));
153 if (res != ERROR_SUCCESS) goto error_close_iid_key;
156 if (list->ps_clsid) {
157 register_key_guid(iid_key, ps_clsid_keyname, list->ps_clsid);
158 if (res != ERROR_SUCCESS) goto error_close_iid_key;
161 if (list->ps_clsid32) {
162 register_key_guid(iid_key, ps_clsid32_keyname, list->ps_clsid32);
163 if (res != ERROR_SUCCESS) goto error_close_iid_key;
167 RegCloseKey(iid_key);
170 error_close_interface_key:
171 RegCloseKey(interface_key);
173 return res != ERROR_SUCCESS ? HRESULT_FROM_WIN32(res) : S_OK;
176 /***********************************************************************
177 * unregister_interfaces
179 static HRESULT unregister_interfaces(struct regsvr_interface const *list)
181 LONG res = ERROR_SUCCESS;
184 res = RegOpenKeyExW(HKEY_CLASSES_ROOT, interface_keyname, 0,
185 KEY_READ | KEY_WRITE, &interface_key);
186 if (res == ERROR_FILE_NOT_FOUND) return S_OK;
187 if (res != ERROR_SUCCESS) goto error_return;
189 for (; res == ERROR_SUCCESS && list->iid; ++list) {
193 StringFromGUID2(list->iid, buf, 39);
194 res = RegOpenKeyExW(interface_key, buf, 0,
195 KEY_READ | KEY_WRITE, &iid_key);
196 if (res == ERROR_FILE_NOT_FOUND) {
200 if (res != ERROR_SUCCESS) goto error_close_interface_key;
201 res = recursive_delete_key(iid_key);
202 RegCloseKey(iid_key);
203 if (res != ERROR_SUCCESS) goto error_close_interface_key;
206 error_close_interface_key:
207 RegCloseKey(interface_key);
209 return res != ERROR_SUCCESS ? HRESULT_FROM_WIN32(res) : S_OK;
212 /***********************************************************************
215 static HRESULT register_coclasses(struct regsvr_coclass const *list)
217 LONG res = ERROR_SUCCESS;
220 res = RegCreateKeyExW(HKEY_CLASSES_ROOT, clsid_keyname, 0, NULL, 0,
221 KEY_READ | KEY_WRITE, NULL, &coclass_key, NULL);
222 if (res != ERROR_SUCCESS) goto error_return;
224 for (; res == ERROR_SUCCESS && list->clsid; ++list) {
228 StringFromGUID2(list->clsid, buf, 39);
229 res = RegCreateKeyExW(coclass_key, buf, 0, NULL, 0,
230 KEY_READ | KEY_WRITE, NULL, &clsid_key, NULL);
231 if (res != ERROR_SUCCESS) goto error_close_coclass_key;
234 res = RegSetValueExA(clsid_key, NULL, 0, REG_SZ,
235 (CONST BYTE*)(list->name),
236 strlen(list->name) + 1);
237 if (res != ERROR_SUCCESS) goto error_close_clsid_key;
241 res = register_key_defvalueA(clsid_key, ips_keyname, list->ips);
242 if (res != ERROR_SUCCESS) goto error_close_clsid_key;
248 res = RegCreateKeyExW(clsid_key, ips32_keyname, 0, NULL, 0,
249 KEY_READ | KEY_WRITE, NULL,
251 if (res != ERROR_SUCCESS) goto error_close_clsid_key;
253 res = RegSetValueExA(ips32_key, NULL, 0, REG_SZ,
254 (CONST BYTE*)list->ips32,
255 lstrlenA(list->ips32) + 1);
256 if (res == ERROR_SUCCESS && list->ips32_tmodel)
257 res = RegSetValueExA(ips32_key, tmodel_valuename, 0, REG_SZ,
258 (CONST BYTE*)list->ips32_tmodel,
259 strlen(list->ips32_tmodel) + 1);
260 RegCloseKey(ips32_key);
261 if (res != ERROR_SUCCESS) goto error_close_clsid_key;
264 error_close_clsid_key:
265 RegCloseKey(clsid_key);
268 error_close_coclass_key:
269 RegCloseKey(coclass_key);
271 return res != ERROR_SUCCESS ? HRESULT_FROM_WIN32(res) : S_OK;
274 /***********************************************************************
275 * unregister_coclasses
277 static HRESULT unregister_coclasses(struct regsvr_coclass const *list)
279 LONG res = ERROR_SUCCESS;
282 res = RegOpenKeyExW(HKEY_CLASSES_ROOT, clsid_keyname, 0,
283 KEY_READ | KEY_WRITE, &coclass_key);
284 if (res == ERROR_FILE_NOT_FOUND) return S_OK;
285 if (res != ERROR_SUCCESS) goto error_return;
287 for (; res == ERROR_SUCCESS && list->clsid; ++list) {
291 StringFromGUID2(list->clsid, buf, 39);
292 res = RegOpenKeyExW(coclass_key, buf, 0,
293 KEY_READ | KEY_WRITE, &clsid_key);
294 if (res == ERROR_FILE_NOT_FOUND) {
298 if (res != ERROR_SUCCESS) goto error_close_coclass_key;
299 res = recursive_delete_key(clsid_key);
300 RegCloseKey(clsid_key);
301 if (res != ERROR_SUCCESS) goto error_close_coclass_key;
304 error_close_coclass_key:
305 RegCloseKey(coclass_key);
307 return res != ERROR_SUCCESS ? HRESULT_FROM_WIN32(res) : S_OK;
310 /***********************************************************************
313 static LONG register_key_guid(HKEY base, WCHAR const *name, GUID const *guid)
317 StringFromGUID2(guid, buf, 39);
318 return register_key_defvalueW(base, name, buf);
321 /***********************************************************************
322 * regsvr_key_defvalueW
324 static LONG register_key_defvalueW(
332 res = RegCreateKeyExW(base, name, 0, NULL, 0,
333 KEY_READ | KEY_WRITE, NULL, &key, NULL);
334 if (res != ERROR_SUCCESS) return res;
335 res = RegSetValueExW(key, NULL, 0, REG_SZ, (CONST BYTE*)value,
336 (lstrlenW(value) + 1) * sizeof(WCHAR));
341 /***********************************************************************
342 * regsvr_key_defvalueA
344 static LONG register_key_defvalueA(
352 res = RegCreateKeyExW(base, name, 0, NULL, 0,
353 KEY_READ | KEY_WRITE, NULL, &key, NULL);
354 if (res != ERROR_SUCCESS) return res;
355 res = RegSetValueExA(key, NULL, 0, REG_SZ, (CONST BYTE*)value,
356 lstrlenA(value) + 1);
361 /***********************************************************************
362 * recursive_delete_key
364 static LONG recursive_delete_key(HKEY key)
367 WCHAR subkey_name[MAX_PATH];
372 cName = sizeof subkey_name / sizeof(WCHAR);
373 res = RegEnumKeyExW(key, 0, subkey_name, &cName,
374 NULL, NULL, NULL, NULL);
375 if (res != ERROR_SUCCESS && res != ERROR_MORE_DATA) {
376 res = ERROR_SUCCESS; /* presumably we're done enumerating */
379 res = RegOpenKeyExW(key, subkey_name, 0,
380 KEY_READ | KEY_WRITE, &subkey);
381 if (res == ERROR_FILE_NOT_FOUND) continue;
382 if (res != ERROR_SUCCESS) break;
384 res = recursive_delete_key(subkey);
386 if (res != ERROR_SUCCESS) break;
389 if (res == ERROR_SUCCESS) res = RegDeleteKeyW(key, 0);
393 /***********************************************************************
396 static GUID const CLSID_FileMoniker = {
397 0x00000303, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
399 static GUID const CLSID_ItemMoniker = {
400 0x00000304, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
402 /* FIXME: DfMarshal and PSFactoryBuffer are defined elsewhere too */
404 static GUID const CLSID_DfMarshal = {
405 0x0000030B, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
407 static GUID const CLSID_PSFactoryBuffer = {
408 0x00000320, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
410 static struct regsvr_coclass const coclass_list[] = {
411 { &CLSID_FileMoniker,
417 { &CLSID_ItemMoniker,
429 { &CLSID_PSFactoryBuffer,
435 { &CLSID_StdGlobalInterfaceTable,
436 "StdGlobalInterfaceTable",
441 { NULL } /* list terminator */
444 /***********************************************************************
448 /* FIXME: perhaps the interfaces that are proxied by another dll
449 * should be registered in that dll? Or maybe the choice of proxy is
450 * arbitrary at this point? */
452 static GUID const CLSID_PSFactoryBuffer_ole2disp = {
453 0x00020420, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
455 static GUID const CLSID_PSFactoryBuffer_oleaut32 = {
456 0xB196B286, 0xBAB4, 0x101A, {0xB6,0x9C,0x00,0xAA,0x00,0x34,0x1D,0x07} };
458 /* FIXME: these interfaces should be defined in ocidl.idl */
460 static IID const IID_IFontEventsDisp = {
461 0x4EF6100A, 0xAF88, 0x11D0, {0x98,0x46,0x00,0xC0,0x4F,0xC2,0x99,0x93} };
463 static IID const IID_IProvideMultipleClassInfo = {
464 0xA7ABA9C1, 0x8983, 0x11CF, {0x8F,0x20,0x00,0x80,0x5F,0x2C,0xD0,0x64} };
466 static IID const IID_IObjectWithSite = {
467 0xFC4801A3, 0x2BA9, 0x11CF, {0xA2,0x29,0x00,0xAA,0x00,0x3D,0x73,0x52} };
469 static struct regsvr_interface const interface_list[] = {
475 &CLSID_PSFactoryBuffer
477 { &IID_IClassFactory,
482 &CLSID_PSFactoryBuffer
489 &CLSID_PSFactoryBuffer
496 &CLSID_PSFactoryBuffer
498 { &IID_IPersistStorage,
503 &CLSID_PSFactoryBuffer
510 &CLSID_PSFactoryBuffer
517 &CLSID_PSFactoryBuffer
524 &CLSID_PSFactoryBuffer
526 { &IID_IOleClientSite,
531 &CLSID_PSFactoryBuffer
537 &CLSID_PSFactoryBuffer_ole2disp,
538 &CLSID_PSFactoryBuffer_ole2disp
545 &CLSID_PSFactoryBuffer_ole2disp
552 &CLSID_PSFactoryBuffer_ole2disp
554 { &IID_IPropertyPage2,
559 &CLSID_PSFactoryBuffer_oleaut32
566 &CLSID_PSFactoryBuffer_oleaut32
568 { &IID_ICreateErrorInfo,
573 &CLSID_PSFactoryBuffer_oleaut32
575 { &IID_IPersistPropertyBag2,
576 "IPersistPropertyBag2",
580 &CLSID_PSFactoryBuffer_oleaut32
582 { &IID_IPropertyBag2,
587 &CLSID_PSFactoryBuffer_oleaut32
594 &CLSID_PSFactoryBuffer_oleaut32
596 { &IID_IPerPropertyBrowsing,
597 "IPerPropertyBrowsing",
601 &CLSID_PSFactoryBuffer_oleaut32
603 { &IID_IPersistPropertyBag,
604 "IPersistPropertyBag",
608 &CLSID_PSFactoryBuffer_oleaut32
610 { &IID_IAdviseSinkEx,
615 &CLSID_PSFactoryBuffer_oleaut32
617 { &IID_IFontEventsDisp,
622 &CLSID_PSFactoryBuffer_oleaut32
629 &CLSID_PSFactoryBuffer_oleaut32
631 { &IID_IPointerInactive,
636 &CLSID_PSFactoryBuffer_oleaut32
638 { &IID_ISimpleFrameSite,
643 &CLSID_PSFactoryBuffer_oleaut32
650 &CLSID_PSFactoryBuffer_oleaut32
657 &CLSID_PSFactoryBuffer_oleaut32
659 { &IID_IPersistStreamInit,
660 "IPersistStreamInit",
664 &CLSID_PSFactoryBuffer_oleaut32
671 &CLSID_PSFactoryBuffer_oleaut32
673 { &IID_IPropertyNotifySink,
674 "IPropertyNotifySink",
678 &CLSID_PSFactoryBuffer_oleaut32
680 { &IID_IOleInPlaceSiteEx,
685 &CLSID_PSFactoryBuffer_oleaut32
687 { &IID_IOleParentUndoUnit,
688 "IOleParentUndoUnit",
692 &CLSID_PSFactoryBuffer_oleaut32
694 { &IID_IProvideClassInfo2,
695 "IProvideClassInfo2",
699 &CLSID_PSFactoryBuffer_oleaut32
701 { &IID_IProvideMultipleClassInfo,
702 "IProvideMultipleClassInfo",
706 &CLSID_PSFactoryBuffer_oleaut32
708 { &IID_IProvideClassInfo,
713 &CLSID_PSFactoryBuffer_oleaut32
715 { &IID_IConnectionPointContainer,
716 "IConnectionPointContainer",
720 &CLSID_PSFactoryBuffer_oleaut32
722 { &IID_IEnumConnectionPoints,
723 "IEnumConnectionPoints",
727 &CLSID_PSFactoryBuffer_oleaut32
729 { &IID_IConnectionPoint,
734 &CLSID_PSFactoryBuffer_oleaut32
736 { &IID_IEnumConnections,
741 &CLSID_PSFactoryBuffer_oleaut32
748 &CLSID_PSFactoryBuffer_oleaut32
750 { &IID_IOleControlSite,
755 &CLSID_PSFactoryBuffer_oleaut32
757 { &IID_ISpecifyPropertyPages,
758 "ISpecifyPropertyPages",
762 &CLSID_PSFactoryBuffer_oleaut32
764 { &IID_IPropertyPageSite,
769 &CLSID_PSFactoryBuffer_oleaut32
771 { &IID_IPropertyPage,
776 &CLSID_PSFactoryBuffer_oleaut32
778 { &IID_IClassFactory2,
783 &CLSID_PSFactoryBuffer_oleaut32
785 { &IID_IEnumOleUndoUnits,
790 &CLSID_PSFactoryBuffer_oleaut32
792 { &IID_IPersistMemory,
797 &CLSID_PSFactoryBuffer_oleaut32
804 &CLSID_PSFactoryBuffer_oleaut32
811 &CLSID_PSFactoryBuffer_oleaut32
813 { &IID_IQuickActivate,
818 &CLSID_PSFactoryBuffer_oleaut32
820 { &IID_IOleUndoManager,
825 &CLSID_PSFactoryBuffer_oleaut32
827 { &IID_IObjectWithSite,
832 &CLSID_PSFactoryBuffer_oleaut32
834 { NULL } /* list terminator */
837 /***********************************************************************
838 * DllRegisterServer (OLE32.194)
840 HRESULT WINAPI OLE32_DllRegisterServer()
846 hr = register_coclasses(coclass_list);
848 hr = register_interfaces(interface_list);
852 /***********************************************************************
853 * DllUnregisterServer (OLE32.@)
855 HRESULT WINAPI OLE32_DllUnregisterServer()
861 hr = unregister_coclasses(coclass_list);
863 hr = unregister_interfaces(interface_list);