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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
36 #include "compobj_private.h"
39 #include "wine/debug.h"
41 WINE_DEFAULT_DEBUG_CHANNEL(ole
);
44 * Near the bottom of this file are the exported DllRegisterServer and
45 * DllUnregisterServer, which make all this worthwhile.
48 /***********************************************************************
49 * interface for self-registering
51 struct regsvr_interface
53 IID
const *iid
; /* NULL for end of list */
54 LPCSTR name
; /* can be NULL to omit */
55 IID
const *base_iid
; /* can be NULL to omit */
56 int num_methods
; /* can be <0 to omit */
57 CLSID
const *ps_clsid
; /* can be NULL to omit */
58 CLSID
const *ps_clsid32
; /* can be NULL to omit */
61 static HRESULT
register_interfaces(struct regsvr_interface
const *list
);
62 static HRESULT
unregister_interfaces(struct regsvr_interface
const *list
);
66 CLSID
const *clsid
; /* NULL for end of list */
67 LPCSTR name
; /* can be NULL to omit */
68 LPCSTR ips
; /* can be NULL to omit */
69 LPCSTR ips32
; /* can be NULL to omit */
70 LPCSTR ips32_tmodel
; /* can be NULL to omit */
71 LPCSTR progid
; /* can be NULL to omit */
74 static HRESULT
register_coclasses(struct regsvr_coclass
const *list
);
75 static HRESULT
unregister_coclasses(struct regsvr_coclass
const *list
);
77 /***********************************************************************
78 * static string constants
80 static WCHAR
const interface_keyname
[10] = {
81 'I', 'n', 't', 'e', 'r', 'f', 'a', 'c', 'e', 0 };
82 static WCHAR
const base_ifa_keyname
[14] = {
83 'B', 'a', 's', 'e', 'I', 'n', 't', 'e', 'r', 'f', 'a', 'c',
85 static WCHAR
const num_methods_keyname
[11] = {
86 'N', 'u', 'm', 'M', 'e', 't', 'h', 'o', 'd', 's', 0 };
87 static WCHAR
const ps_clsid_keyname
[15] = {
88 'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
90 static WCHAR
const ps_clsid32_keyname
[17] = {
91 'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
92 'i', 'd', '3', '2', 0 };
93 static WCHAR
const clsid_keyname
[6] = {
94 'C', 'L', 'S', 'I', 'D', 0 };
95 static WCHAR
const ips_keyname
[13] = {
96 'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
98 static WCHAR
const ips32_keyname
[15] = {
99 'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
101 static WCHAR
const progid_keyname
[7] = {
102 'P', 'r', 'o', 'g', 'I', 'D', 0 };
103 static char const tmodel_valuename
[] = "ThreadingModel";
105 /***********************************************************************
106 * static helper functions
108 static LONG
register_key_guid(HKEY base
, WCHAR
const *name
, GUID
const *guid
);
109 static LONG
register_key_defvalueW(HKEY base
, WCHAR
const *name
,
111 static LONG
register_key_defvalueA(HKEY base
, WCHAR
const *name
,
113 static LONG
register_progid(WCHAR
const *clsid
, char const *progid
,
116 /***********************************************************************
117 * register_interfaces
119 static HRESULT
register_interfaces(struct regsvr_interface
const *list
)
121 LONG res
= ERROR_SUCCESS
;
124 res
= RegCreateKeyExW(HKEY_CLASSES_ROOT
, interface_keyname
, 0, NULL
, 0,
125 KEY_READ
| KEY_WRITE
, NULL
, &interface_key
, NULL
);
126 if (res
!= ERROR_SUCCESS
) goto error_return
;
128 for (; res
== ERROR_SUCCESS
&& list
->iid
; ++list
) {
132 StringFromGUID2(list
->iid
, buf
, 39);
133 res
= RegCreateKeyExW(interface_key
, buf
, 0, NULL
, 0,
134 KEY_READ
| KEY_WRITE
, NULL
, &iid_key
, NULL
);
135 if (res
!= ERROR_SUCCESS
) goto error_close_interface_key
;
138 res
= RegSetValueExA(iid_key
, NULL
, 0, REG_SZ
,
139 (CONST BYTE
*)(list
->name
),
140 strlen(list
->name
) + 1);
141 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
144 if (list
->base_iid
) {
145 res
= register_key_guid(iid_key
, base_ifa_keyname
, list
->base_iid
);
146 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
149 if (0 <= list
->num_methods
) {
150 static WCHAR
const fmt
[3] = { '%', 'd', 0 };
153 res
= RegCreateKeyExW(iid_key
, num_methods_keyname
, 0, NULL
, 0,
154 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
155 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
157 wsprintfW(buf
, fmt
, list
->num_methods
);
158 res
= RegSetValueExW(key
, NULL
, 0, REG_SZ
,
160 (lstrlenW(buf
) + 1) * sizeof(WCHAR
));
163 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
166 if (list
->ps_clsid
) {
167 res
= register_key_guid(iid_key
, ps_clsid_keyname
, list
->ps_clsid
);
168 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
171 if (list
->ps_clsid32
) {
172 res
= register_key_guid(iid_key
, ps_clsid32_keyname
, list
->ps_clsid32
);
173 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
177 RegCloseKey(iid_key
);
180 error_close_interface_key
:
181 RegCloseKey(interface_key
);
183 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
186 /***********************************************************************
187 * unregister_interfaces
189 static HRESULT
unregister_interfaces(struct regsvr_interface
const *list
)
191 LONG res
= ERROR_SUCCESS
;
194 res
= RegOpenKeyExW(HKEY_CLASSES_ROOT
, interface_keyname
, 0,
195 KEY_READ
| KEY_WRITE
, &interface_key
);
196 if (res
== ERROR_FILE_NOT_FOUND
) return S_OK
;
197 if (res
!= ERROR_SUCCESS
) goto error_return
;
199 for (; res
== ERROR_SUCCESS
&& list
->iid
; ++list
) {
202 StringFromGUID2(list
->iid
, buf
, 39);
203 res
= RegDeleteTreeW(interface_key
, buf
);
204 if (res
== ERROR_FILE_NOT_FOUND
) res
= ERROR_SUCCESS
;
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
;
265 res
= register_key_defvalueA(clsid_key
, progid_keyname
,
267 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
269 res
= register_progid(buf
, list
->progid
, list
->name
);
270 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
273 error_close_clsid_key
:
274 RegCloseKey(clsid_key
);
277 error_close_coclass_key
:
278 RegCloseKey(coclass_key
);
280 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
283 /***********************************************************************
284 * unregister_coclasses
286 static HRESULT
unregister_coclasses(struct regsvr_coclass
const *list
)
288 LONG res
= ERROR_SUCCESS
;
291 res
= RegOpenKeyExW(HKEY_CLASSES_ROOT
, clsid_keyname
, 0,
292 KEY_READ
| KEY_WRITE
, &coclass_key
);
293 if (res
== ERROR_FILE_NOT_FOUND
) return S_OK
;
294 if (res
!= ERROR_SUCCESS
) goto error_return
;
296 for (; res
== ERROR_SUCCESS
&& list
->clsid
; ++list
) {
299 StringFromGUID2(list
->clsid
, buf
, 39);
300 res
= RegDeleteTreeW(coclass_key
, buf
);
301 if (res
== ERROR_FILE_NOT_FOUND
) res
= ERROR_SUCCESS
;
302 if (res
!= ERROR_SUCCESS
) goto error_close_coclass_key
;
305 res
= RegDeleteTreeA(HKEY_CLASSES_ROOT
, list
->progid
);
306 if (res
== ERROR_FILE_NOT_FOUND
) res
= ERROR_SUCCESS
;
307 if (res
!= ERROR_SUCCESS
) goto error_close_coclass_key
;
311 error_close_coclass_key
:
312 RegCloseKey(coclass_key
);
314 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
317 /***********************************************************************
320 static LONG
register_key_guid(HKEY base
, WCHAR
const *name
, GUID
const *guid
)
324 StringFromGUID2(guid
, buf
, 39);
325 return register_key_defvalueW(base
, name
, buf
);
328 /***********************************************************************
329 * regsvr_key_defvalueW
331 static LONG
register_key_defvalueW(
339 res
= RegCreateKeyExW(base
, name
, 0, NULL
, 0,
340 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
341 if (res
!= ERROR_SUCCESS
) return res
;
342 res
= RegSetValueExW(key
, NULL
, 0, REG_SZ
, (CONST BYTE
*)value
,
343 (lstrlenW(value
) + 1) * sizeof(WCHAR
));
348 /***********************************************************************
349 * regsvr_key_defvalueA
351 static LONG
register_key_defvalueA(
359 res
= RegCreateKeyExW(base
, name
, 0, NULL
, 0,
360 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
361 if (res
!= ERROR_SUCCESS
) return res
;
362 res
= RegSetValueExA(key
, NULL
, 0, REG_SZ
, (CONST BYTE
*)value
,
363 lstrlenA(value
) + 1);
368 /***********************************************************************
371 static LONG
register_progid(
379 res
= RegCreateKeyExA(HKEY_CLASSES_ROOT
, progid
, 0,
380 NULL
, 0, KEY_READ
| KEY_WRITE
, NULL
,
382 if (res
!= ERROR_SUCCESS
) return res
;
385 res
= RegSetValueExA(progid_key
, NULL
, 0, REG_SZ
,
386 (CONST BYTE
*)name
, strlen(name
) + 1);
387 if (res
!= ERROR_SUCCESS
) goto error_close_progid_key
;
391 res
= register_key_defvalueW(progid_key
, clsid_keyname
, clsid
);
392 if (res
!= ERROR_SUCCESS
) goto error_close_progid_key
;
395 error_close_progid_key
:
396 RegCloseKey(progid_key
);
400 /***********************************************************************
403 static GUID
const CLSID_StdOleLink
= {
404 0x00000300, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
406 static GUID
const CLSID_PackagerMoniker
= {
407 0x00000308, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
409 extern GUID
const CLSID_Picture_Metafile
;
410 extern GUID
const CLSID_Picture_Dib
;
412 static struct regsvr_coclass
const coclass_list
[] = {
419 { &CLSID_FileMoniker
,
426 { &CLSID_ItemMoniker
,
432 { &CLSID_AntiMoniker
,
438 { &CLSID_PointerMoniker
,
444 { &CLSID_PackagerMoniker
,
450 { &CLSID_CompositeMoniker
,
462 { &CLSID_Picture_Metafile
,
463 "Picture (Metafile)",
469 { &CLSID_Picture_Dib
,
470 "Picture (Device Independent Bitmap)",
476 { &CLSID_ClassMoniker
,
483 { &CLSID_PSFactoryBuffer
,
489 { &CLSID_StdGlobalInterfaceTable
,
490 "StdGlobalInterfaceTable",
495 { NULL
} /* list terminator */
498 /***********************************************************************
502 #define INTERFACE_ENTRY(interface, base, clsid32, clsid16) { &IID_##interface, #interface, base, sizeof(interface##Vtbl)/sizeof(void*), clsid16, clsid32 }
503 #define BAS_INTERFACE_ENTRY(interface, base) INTERFACE_ENTRY(interface, &IID_##base, &CLSID_PSFactoryBuffer, NULL)
504 #define STD_INTERFACE_ENTRY(interface) INTERFACE_ENTRY(interface, NULL, &CLSID_PSFactoryBuffer, NULL)
505 #define LCL_INTERFACE_ENTRY(interface) INTERFACE_ENTRY(interface, NULL, NULL, NULL)
507 static const struct regsvr_interface interface_list
[] = {
508 LCL_INTERFACE_ENTRY(IUnknown
),
509 STD_INTERFACE_ENTRY(IClassFactory
),
510 LCL_INTERFACE_ENTRY(IMalloc
),
511 LCL_INTERFACE_ENTRY(IMarshal
),
512 STD_INTERFACE_ENTRY(ILockBytes
),
513 STD_INTERFACE_ENTRY(IStorage
),
514 STD_INTERFACE_ENTRY(IStream
),
515 STD_INTERFACE_ENTRY(IEnumSTATSTG
),
516 STD_INTERFACE_ENTRY(IBindCtx
),
517 BAS_INTERFACE_ENTRY(IMoniker
, IPersistStream
),
518 STD_INTERFACE_ENTRY(IRunningObjectTable
),
519 STD_INTERFACE_ENTRY(IRootStorage
),
520 LCL_INTERFACE_ENTRY(IMessageFilter
),
521 LCL_INTERFACE_ENTRY(IStdMarshalInfo
),
522 LCL_INTERFACE_ENTRY(IExternalConnection
),
523 LCL_INTERFACE_ENTRY(IMallocSpy
),
524 LCL_INTERFACE_ENTRY(IMultiQI
),
525 STD_INTERFACE_ENTRY(IEnumUnknown
),
526 STD_INTERFACE_ENTRY(IEnumString
),
527 STD_INTERFACE_ENTRY(IEnumMoniker
),
528 STD_INTERFACE_ENTRY(IEnumFORMATETC
),
529 STD_INTERFACE_ENTRY(IEnumOLEVERB
),
530 STD_INTERFACE_ENTRY(IEnumSTATDATA
),
531 BAS_INTERFACE_ENTRY(IPersistStream
, IPersist
),
532 BAS_INTERFACE_ENTRY(IPersistStorage
, IPersist
),
533 BAS_INTERFACE_ENTRY(IPersistFile
, IPersist
),
534 STD_INTERFACE_ENTRY(IPersist
),
535 STD_INTERFACE_ENTRY(IViewObject
),
536 STD_INTERFACE_ENTRY(IDataObject
),
537 STD_INTERFACE_ENTRY(IAdviseSink
),
538 LCL_INTERFACE_ENTRY(IDataAdviseHolder
),
539 LCL_INTERFACE_ENTRY(IOleAdviseHolder
),
540 STD_INTERFACE_ENTRY(IOleObject
),
541 BAS_INTERFACE_ENTRY(IOleInPlaceObject
, IOleWindow
),
542 STD_INTERFACE_ENTRY(IOleWindow
),
543 BAS_INTERFACE_ENTRY(IOleInPlaceUIWindow
, IOleWindow
),
544 STD_INTERFACE_ENTRY(IOleInPlaceFrame
),
545 BAS_INTERFACE_ENTRY(IOleInPlaceActiveObject
, IOleWindow
),
546 STD_INTERFACE_ENTRY(IOleClientSite
),
547 BAS_INTERFACE_ENTRY(IOleInPlaceSite
, IOleWindow
),
548 STD_INTERFACE_ENTRY(IParseDisplayName
),
549 BAS_INTERFACE_ENTRY(IOleContainer
, IParseDisplayName
),
550 BAS_INTERFACE_ENTRY(IOleItemContainer
, IOleContainer
),
551 STD_INTERFACE_ENTRY(IOleLink
),
552 STD_INTERFACE_ENTRY(IOleCache
),
553 LCL_INTERFACE_ENTRY(IDropSource
),
554 STD_INTERFACE_ENTRY(IDropTarget
),
555 BAS_INTERFACE_ENTRY(IAdviseSink2
, IAdviseSink
),
556 STD_INTERFACE_ENTRY(IRunnableObject
),
557 BAS_INTERFACE_ENTRY(IViewObject2
, IViewObject
),
558 BAS_INTERFACE_ENTRY(IOleCache2
, IOleCache
),
559 STD_INTERFACE_ENTRY(IOleCacheControl
),
560 STD_INTERFACE_ENTRY(IRemUnknown
),
561 LCL_INTERFACE_ENTRY(IClientSecurity
),
562 LCL_INTERFACE_ENTRY(IServerSecurity
),
563 STD_INTERFACE_ENTRY(ISequentialStream
),
564 { NULL
} /* list terminator */
567 /***********************************************************************
568 * DllRegisterServer (OLE32.@)
570 HRESULT WINAPI
DllRegisterServer(void)
576 hr
= register_coclasses(coclass_list
);
578 hr
= register_interfaces(interface_list
);
582 /***********************************************************************
583 * DllUnregisterServer (OLE32.@)
585 HRESULT WINAPI
DllUnregisterServer(void)
591 hr
= unregister_coclasses(coclass_list
);
593 hr
= unregister_interfaces(interface_list
);