2 * self-registerable dll functions for dmusic.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
21 #include "dmusic_private.h"
24 * Near the bottom of this file are the exported DllRegisterServer and
25 * DllUnregisterServer, which make all this worthwhile.
28 /***********************************************************************
29 * interface for self-registering
31 struct regsvr_interface
{
32 IID
const *iid
; /* NULL for end of list */
33 LPCSTR name
; /* can be NULL to omit */
34 IID
const *base_iid
; /* can be NULL to omit */
35 int num_methods
; /* can be <0 to omit */
36 CLSID
const *ps_clsid
; /* can be NULL to omit */
37 CLSID
const *ps_clsid32
; /* can be NULL to omit */
40 static HRESULT
register_interfaces(struct regsvr_interface
const *list
);
41 static HRESULT
unregister_interfaces(struct regsvr_interface
const *list
);
43 struct regsvr_coclass
{
44 CLSID
const *clsid
; /* NULL for end of list */
45 LPCSTR name
; /* can be NULL to omit */
46 LPCSTR ips
; /* can be NULL to omit */
47 LPCSTR ips32
; /* can be NULL to omit */
48 LPCSTR ips32_tmodel
; /* can be NULL to omit */
49 LPCSTR progid
; /* can be NULL to omit */
50 LPCSTR viprogid
; /* can be NULL to omit */
51 LPCSTR progid_extra
; /* can be NULL to omit */
54 static HRESULT
register_coclasses(struct regsvr_coclass
const *list
);
55 static HRESULT
unregister_coclasses(struct regsvr_coclass
const *list
);
57 /***********************************************************************
58 * static string constants
60 static WCHAR
const interface_keyname
[10] = {
61 'I', 'n', 't', 'e', 'r', 'f', 'a', 'c', 'e', 0 };
62 static WCHAR
const base_ifa_keyname
[14] = {
63 'B', 'a', 's', 'e', 'I', 'n', 't', 'e', 'r', 'f', 'a', 'c',
65 static WCHAR
const num_methods_keyname
[11] = {
66 'N', 'u', 'm', 'M', 'e', 't', 'h', 'o', 'd', 's', 0 };
67 static WCHAR
const ps_clsid_keyname
[15] = {
68 'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
70 static WCHAR
const ps_clsid32_keyname
[17] = {
71 'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
72 'i', 'd', '3', '2', 0 };
73 static WCHAR
const clsid_keyname
[6] = {
74 'C', 'L', 'S', 'I', 'D', 0 };
75 static WCHAR
const curver_keyname
[7] = {
76 'C', 'u', 'r', 'V', 'e', 'r', 0 };
77 static WCHAR
const ips_keyname
[13] = {
78 'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
80 static WCHAR
const ips32_keyname
[15] = {
81 'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
83 static WCHAR
const progid_keyname
[7] = {
84 'P', 'r', 'o', 'g', 'I', 'D', 0 };
85 static WCHAR
const viprogid_keyname
[25] = {
86 'V', 'e', 'r', 's', 'i', 'o', 'n', 'I', 'n', 'd', 'e', 'p',
87 'e', 'n', 'd', 'e', 'n', 't', 'P', 'r', 'o', 'g', 'I', 'D',
89 static char const tmodel_valuename
[] = "ThreadingModel";
91 /***********************************************************************
92 * static helper functions
94 static LONG
register_key_guid(HKEY base
, WCHAR
const *name
, GUID
const *guid
);
95 static LONG
register_key_defvalueW(HKEY base
, WCHAR
const *name
,
97 static LONG
register_key_defvalueA(HKEY base
, WCHAR
const *name
,
99 static LONG
register_progid(WCHAR
const *clsid
,
100 char const *progid
, char const *curver_progid
,
101 char const *name
, char const *extra
);
103 /***********************************************************************
104 * register_interfaces
106 static HRESULT
register_interfaces(struct regsvr_interface
const *list
) {
107 LONG res
= ERROR_SUCCESS
;
110 res
= RegCreateKeyExW(HKEY_CLASSES_ROOT
, interface_keyname
, 0, NULL
, 0,
111 KEY_READ
| KEY_WRITE
, NULL
, &interface_key
, NULL
);
112 if (res
!= ERROR_SUCCESS
) goto error_return
;
114 for (; res
== ERROR_SUCCESS
&& list
->iid
; ++list
) {
118 StringFromGUID2(list
->iid
, buf
, 39);
119 res
= RegCreateKeyExW(interface_key
, buf
, 0, NULL
, 0,
120 KEY_READ
| KEY_WRITE
, NULL
, &iid_key
, NULL
);
121 if (res
!= ERROR_SUCCESS
) goto error_close_interface_key
;
124 res
= RegSetValueExA(iid_key
, NULL
, 0, REG_SZ
,
125 (CONST BYTE
*)(list
->name
),
126 strlen(list
->name
) + 1);
127 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
130 if (list
->base_iid
) {
131 res
= register_key_guid(iid_key
, base_ifa_keyname
, list
->base_iid
);
132 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
135 if (0 <= list
->num_methods
) {
136 static WCHAR
const fmt
[3] = { '%', 'd', 0 };
139 res
= RegCreateKeyExW(iid_key
, num_methods_keyname
, 0, NULL
, 0,
140 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
141 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
143 sprintfW(buf
, fmt
, list
->num_methods
);
144 res
= RegSetValueExW(key
, NULL
, 0, REG_SZ
,
146 (lstrlenW(buf
) + 1) * sizeof(WCHAR
));
149 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
152 if (list
->ps_clsid
) {
153 res
= register_key_guid(iid_key
, ps_clsid_keyname
, list
->ps_clsid
);
154 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
157 if (list
->ps_clsid32
) {
158 res
= register_key_guid(iid_key
, ps_clsid32_keyname
, list
->ps_clsid32
);
159 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
163 RegCloseKey(iid_key
);
166 error_close_interface_key
:
167 RegCloseKey(interface_key
);
169 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
172 /***********************************************************************
173 * unregister_interfaces
175 static HRESULT
unregister_interfaces(struct regsvr_interface
const *list
) {
176 LONG res
= ERROR_SUCCESS
;
179 res
= RegOpenKeyExW(HKEY_CLASSES_ROOT
, interface_keyname
, 0,
180 KEY_READ
| KEY_WRITE
, &interface_key
);
181 if (res
== ERROR_FILE_NOT_FOUND
) return S_OK
;
182 if (res
!= ERROR_SUCCESS
) goto error_return
;
184 for (; res
== ERROR_SUCCESS
&& list
->iid
; ++list
) {
187 StringFromGUID2(list
->iid
, buf
, 39);
188 res
= RegDeleteTreeW(interface_key
, buf
);
189 if (res
== ERROR_FILE_NOT_FOUND
) res
= ERROR_SUCCESS
;
192 RegCloseKey(interface_key
);
194 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
197 /***********************************************************************
200 static HRESULT
register_coclasses(struct regsvr_coclass
const *list
) {
201 LONG res
= ERROR_SUCCESS
;
204 res
= RegCreateKeyExW(HKEY_CLASSES_ROOT
, clsid_keyname
, 0, NULL
, 0,
205 KEY_READ
| KEY_WRITE
, NULL
, &coclass_key
, NULL
);
206 if (res
!= ERROR_SUCCESS
) goto error_return
;
208 for (; res
== ERROR_SUCCESS
&& list
->clsid
; ++list
) {
212 StringFromGUID2(list
->clsid
, buf
, 39);
213 res
= RegCreateKeyExW(coclass_key
, buf
, 0, NULL
, 0,
214 KEY_READ
| KEY_WRITE
, NULL
, &clsid_key
, NULL
);
215 if (res
!= ERROR_SUCCESS
) goto error_close_coclass_key
;
218 res
= RegSetValueExA(clsid_key
, NULL
, 0, REG_SZ
,
219 (CONST BYTE
*)(list
->name
),
220 strlen(list
->name
) + 1);
221 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
225 res
= register_key_defvalueA(clsid_key
, ips_keyname
, list
->ips
);
226 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
232 res
= RegCreateKeyExW(clsid_key
, ips32_keyname
, 0, NULL
, 0,
233 KEY_READ
| KEY_WRITE
, NULL
,
235 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
237 res
= RegSetValueExA(ips32_key
, NULL
, 0, REG_SZ
,
238 (CONST BYTE
*)list
->ips32
,
239 lstrlenA(list
->ips32
) + 1);
240 if (res
== ERROR_SUCCESS
&& list
->ips32_tmodel
)
241 res
= RegSetValueExA(ips32_key
, tmodel_valuename
, 0, REG_SZ
,
242 (CONST BYTE
*)list
->ips32_tmodel
,
243 strlen(list
->ips32_tmodel
) + 1);
244 RegCloseKey(ips32_key
);
245 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
249 res
= register_key_defvalueA(clsid_key
, progid_keyname
,
251 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
253 res
= register_progid(buf
, list
->progid
, NULL
,
254 list
->name
, list
->progid_extra
);
255 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
258 if (list
->viprogid
) {
259 res
= register_key_defvalueA(clsid_key
, viprogid_keyname
,
261 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
263 res
= register_progid(buf
, list
->viprogid
, list
->progid
,
264 list
->name
, list
->progid_extra
);
265 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
268 error_close_clsid_key
:
269 RegCloseKey(clsid_key
);
272 error_close_coclass_key
:
273 RegCloseKey(coclass_key
);
275 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
278 /***********************************************************************
279 * unregister_coclasses
281 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
) {
293 StringFromGUID2(list
->clsid
, buf
, 39);
294 res
= RegDeleteTreeW(coclass_key
, buf
);
295 if (res
== ERROR_FILE_NOT_FOUND
) res
= ERROR_SUCCESS
;
296 if (res
!= ERROR_SUCCESS
) goto error_close_coclass_key
;
299 res
= RegDeleteTreeA(HKEY_CLASSES_ROOT
, list
->progid
);
300 if (res
== ERROR_FILE_NOT_FOUND
) res
= ERROR_SUCCESS
;
301 if (res
!= ERROR_SUCCESS
) goto error_close_coclass_key
;
304 if (list
->viprogid
) {
305 res
= RegDeleteTreeA(HKEY_CLASSES_ROOT
, list
->viprogid
);
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
) {
323 StringFromGUID2(guid
, buf
, 39);
324 return register_key_defvalueW(base
, name
, buf
);
327 /***********************************************************************
328 * regsvr_key_defvalueW
330 static LONG
register_key_defvalueW(
333 WCHAR
const *value
) {
337 res
= RegCreateKeyExW(base
, name
, 0, NULL
, 0,
338 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
339 if (res
!= ERROR_SUCCESS
) return res
;
340 res
= RegSetValueExW(key
, NULL
, 0, REG_SZ
, (CONST BYTE
*)value
,
341 (lstrlenW(value
) + 1) * sizeof(WCHAR
));
346 /***********************************************************************
347 * regsvr_key_defvalueA
349 static LONG
register_key_defvalueA(
356 res
= RegCreateKeyExW(base
, name
, 0, NULL
, 0,
357 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
358 if (res
!= ERROR_SUCCESS
) return res
;
359 res
= RegSetValueExA(key
, NULL
, 0, REG_SZ
, (CONST BYTE
*)value
,
360 lstrlenA(value
) + 1);
365 /***********************************************************************
368 static LONG
register_progid(
371 char const *curver_progid
,
377 res
= RegCreateKeyExA(HKEY_CLASSES_ROOT
, progid
, 0,
378 NULL
, 0, KEY_READ
| KEY_WRITE
, NULL
,
380 if (res
!= ERROR_SUCCESS
) return res
;
383 res
= RegSetValueExA(progid_key
, NULL
, 0, REG_SZ
,
384 (CONST BYTE
*)name
, strlen(name
) + 1);
385 if (res
!= ERROR_SUCCESS
) goto error_close_progid_key
;
389 res
= register_key_defvalueW(progid_key
, clsid_keyname
, clsid
);
390 if (res
!= ERROR_SUCCESS
) goto error_close_progid_key
;
394 res
= register_key_defvalueA(progid_key
, curver_keyname
,
396 if (res
!= ERROR_SUCCESS
) goto error_close_progid_key
;
402 res
= RegCreateKeyExA(progid_key
, extra
, 0,
403 NULL
, 0, KEY_READ
| KEY_WRITE
, NULL
,
405 if (res
== ERROR_SUCCESS
)
406 RegCloseKey(extra_key
);
409 error_close_progid_key
:
410 RegCloseKey(progid_key
);
414 /***********************************************************************
417 static struct regsvr_coclass
const coclass_list
[] = {
418 { &CLSID_DirectMusic
,
423 "Microsoft.DirectMusic.1",
424 "Microsoft.DirectMusic"
426 { &CLSID_DirectMusicCollection
,
427 "DirectMusicCollection",
431 "Microsoft.DirectMusicCollection.1",
432 "Microsoft.DirectMusicCollection"
434 { NULL
} /* list terminator */
437 /***********************************************************************
441 static struct regsvr_interface
const interface_list
[] = {
442 { NULL
} /* list terminator */
445 /***********************************************************************
446 * DllRegisterServer (DMUSIC.3)
448 HRESULT WINAPI
DllRegisterServer(void)
454 hr
= register_coclasses(coclass_list
);
456 hr
= register_interfaces(interface_list
);
460 /***********************************************************************
461 * DllUnregisterServer (DMUSIC.4)
463 HRESULT WINAPI
DllUnregisterServer(void)
469 hr
= unregister_coclasses(coclass_list
);
471 hr
= unregister_interfaces(interface_list
);