2 * self-registerable dll functions for ddraw.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
20 * this file are from wine ddraw with some modification
35 //#include "wine/debug.h"
37 //WINE_DEFAULT_DEBUG_CHANNEL(ddraw);
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 */
67 LPCSTR clsid_str
; /* can be NULL to omit */
68 LPCSTR progid
; /* can be NULL to omit */
71 static HRESULT
register_coclasses(struct regsvr_coclass
const *list
);
72 static HRESULT
unregister_coclasses(struct regsvr_coclass
const *list
);
74 /***********************************************************************
75 * static string constants
77 static WCHAR
const interface_keyname
[10] = {
78 'I', 'n', 't', 'e', 'r', 'f', 'a', 'c', 'e', 0 };
79 static WCHAR
const base_ifa_keyname
[14] = {
80 'B', 'a', 's', 'e', 'I', 'n', 't', 'e', 'r', 'f', 'a', 'c',
82 static WCHAR
const num_methods_keyname
[11] = {
83 'N', 'u', 'm', 'M', 'e', 't', 'h', 'o', 'd', 's', 0 };
84 static WCHAR
const ps_clsid_keyname
[15] = {
85 'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
87 static WCHAR
const ps_clsid32_keyname
[17] = {
88 'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
89 'i', 'd', '3', '2', 0 };
90 static WCHAR
const clsid_keyname
[6] = {
91 'C', 'L', 'S', 'I', 'D', 0 };
92 static WCHAR
const ips_keyname
[13] = {
93 'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
95 static WCHAR
const ips32_keyname
[15] = {
96 'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
98 static WCHAR
const progid_keyname
[7] = {
99 'P', 'r', 'o', 'g', 'I', 'D', 0 };
100 static char const tmodel_valuename
[] = "ThreadingModel";
102 /***********************************************************************
103 * static helper functions
105 static LONG
register_key_guid(HKEY base
, WCHAR
const *name
, GUID
const *guid
);
106 static LONG
register_key_defvalueW(HKEY base
, WCHAR
const *name
,
108 static LONG
register_key_defvalueA(HKEY base
, WCHAR
const *name
,
110 static LONG
recursive_delete_key(HKEY key
);
111 static LONG
recursive_delete_keyA(HKEY base
, char const *name
);
112 static LONG
recursive_delete_keyW(HKEY base
, WCHAR
const *name
);
114 /***********************************************************************
115 * register_interfaces
117 static HRESULT
register_interfaces(struct regsvr_interface
const *list
)
119 LONG res
= ERROR_SUCCESS
;
122 res
= RegCreateKeyExW(HKEY_CLASSES_ROOT
, interface_keyname
, 0, NULL
, 0,
123 KEY_READ
| KEY_WRITE
, NULL
, &interface_key
, NULL
);
124 if (res
!= ERROR_SUCCESS
) goto error_return
;
126 for (; res
== ERROR_SUCCESS
&& list
->iid
; ++list
) {
130 StringFromGUID2(list
->iid
, buf
, 39);
131 res
= RegCreateKeyExW(interface_key
, buf
, 0, NULL
, 0,
132 KEY_READ
| KEY_WRITE
, NULL
, &iid_key
, NULL
);
133 if (res
!= ERROR_SUCCESS
) goto error_close_interface_key
;
136 res
= RegSetValueExA(iid_key
, NULL
, 0, REG_SZ
,
137 (CONST BYTE
*)(list
->name
),
138 strlen(list
->name
) + 1);
139 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
142 if (list
->base_iid
) {
143 register_key_guid(iid_key
, base_ifa_keyname
, list
->base_iid
);
144 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
147 if (0 <= list
->num_methods
) {
148 static WCHAR
const fmt
[3] = { '%', 'd', 0 };
151 res
= RegCreateKeyExW(iid_key
, num_methods_keyname
, 0, NULL
, 0,
152 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
153 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
155 wsprintfW(buf
, fmt
, list
->num_methods
);
156 res
= RegSetValueExW(key
, NULL
, 0, REG_SZ
,
158 (lstrlenW(buf
) + 1) * sizeof(WCHAR
));
161 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
164 if (list
->ps_clsid
) {
165 register_key_guid(iid_key
, ps_clsid_keyname
, list
->ps_clsid
);
166 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
169 if (list
->ps_clsid32
) {
170 register_key_guid(iid_key
, ps_clsid32_keyname
, list
->ps_clsid32
);
171 if (res
!= ERROR_SUCCESS
) goto error_close_iid_key
;
175 RegCloseKey(iid_key
);
178 error_close_interface_key
:
179 RegCloseKey(interface_key
);
181 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
184 /***********************************************************************
185 * unregister_interfaces
187 static HRESULT
unregister_interfaces(struct regsvr_interface
const *list
)
189 LONG res
= ERROR_SUCCESS
;
192 res
= RegOpenKeyExW(HKEY_CLASSES_ROOT
, interface_keyname
, 0,
193 KEY_READ
| KEY_WRITE
, &interface_key
);
194 if (res
== ERROR_FILE_NOT_FOUND
) return S_OK
;
195 if (res
!= ERROR_SUCCESS
) goto error_return
;
197 for (; res
== ERROR_SUCCESS
&& list
->iid
; ++list
) {
200 StringFromGUID2(list
->iid
, buf
, 39);
201 res
= recursive_delete_keyW(interface_key
, buf
);
204 RegCloseKey(interface_key
);
206 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
209 /***********************************************************************
212 static HRESULT
register_coclasses(struct regsvr_coclass
const *list
)
214 LONG res
= ERROR_SUCCESS
;
217 res
= RegCreateKeyExW(HKEY_CLASSES_ROOT
, clsid_keyname
, 0, NULL
, 0,
218 KEY_READ
| KEY_WRITE
, NULL
, &coclass_key
, NULL
);
219 if (res
!= ERROR_SUCCESS
) goto error_return
;
221 for (; res
== ERROR_SUCCESS
&& list
->clsid
; ++list
) {
225 StringFromGUID2(list
->clsid
, buf
, 39);
226 res
= RegCreateKeyExW(coclass_key
, buf
, 0, NULL
, 0,
227 KEY_READ
| KEY_WRITE
, NULL
, &clsid_key
, NULL
);
228 if (res
!= ERROR_SUCCESS
) goto error_close_coclass_key
;
231 res
= RegSetValueExA(clsid_key
, NULL
, 0, REG_SZ
,
232 (CONST BYTE
*)(list
->name
),
233 strlen(list
->name
) + 1);
234 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
238 res
= register_key_defvalueA(clsid_key
, ips_keyname
, list
->ips
);
239 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
245 res
= RegCreateKeyExW(clsid_key
, ips32_keyname
, 0, NULL
, 0,
246 KEY_READ
| KEY_WRITE
, NULL
,
248 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
250 res
= RegSetValueExA(ips32_key
, NULL
, 0, REG_SZ
,
251 (CONST BYTE
*)list
->ips32
,
252 lstrlenA(list
->ips32
) + 1);
253 if (res
== ERROR_SUCCESS
&& list
->ips32_tmodel
)
254 res
= RegSetValueExA(ips32_key
, tmodel_valuename
, 0, REG_SZ
,
255 (CONST BYTE
*)list
->ips32_tmodel
,
256 strlen(list
->ips32_tmodel
) + 1);
257 RegCloseKey(ips32_key
);
258 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
261 if (list
->clsid_str
) {
262 res
= register_key_defvalueA(clsid_key
, clsid_keyname
,
264 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
270 res
= register_key_defvalueA(clsid_key
, progid_keyname
,
272 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
274 res
= RegCreateKeyExA(HKEY_CLASSES_ROOT
, list
->progid
, 0,
275 NULL
, 0, KEY_READ
| KEY_WRITE
, NULL
,
277 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
279 res
= register_key_defvalueW(progid_key
, clsid_keyname
, buf
);
280 RegCloseKey(progid_key
);
281 if (res
!= ERROR_SUCCESS
) goto error_close_clsid_key
;
284 error_close_clsid_key
:
285 RegCloseKey(clsid_key
);
288 error_close_coclass_key
:
289 RegCloseKey(coclass_key
);
291 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
294 /***********************************************************************
295 * unregister_coclasses
297 static HRESULT
unregister_coclasses(struct regsvr_coclass
const *list
)
299 LONG res
= ERROR_SUCCESS
;
302 res
= RegOpenKeyExW(HKEY_CLASSES_ROOT
, clsid_keyname
, 0,
303 KEY_READ
| KEY_WRITE
, &coclass_key
);
304 if (res
== ERROR_FILE_NOT_FOUND
) return S_OK
;
305 if (res
!= ERROR_SUCCESS
) goto error_return
;
307 for (; res
== ERROR_SUCCESS
&& list
->clsid
; ++list
) {
310 StringFromGUID2(list
->clsid
, buf
, 39);
311 res
= recursive_delete_keyW(coclass_key
, buf
);
312 if (res
!= ERROR_SUCCESS
) goto error_close_coclass_key
;
315 res
= recursive_delete_keyA(HKEY_CLASSES_ROOT
, list
->progid
);
316 if (res
!= ERROR_SUCCESS
) goto error_close_coclass_key
;
320 error_close_coclass_key
:
321 RegCloseKey(coclass_key
);
323 return res
!= ERROR_SUCCESS
? HRESULT_FROM_WIN32(res
) : S_OK
;
326 /***********************************************************************
329 static LONG
register_key_guid(HKEY base
, WCHAR
const *name
, GUID
const *guid
)
333 StringFromGUID2(guid
, buf
, 39);
334 return register_key_defvalueW(base
, name
, buf
);
337 /***********************************************************************
338 * regsvr_key_defvalueW
340 static LONG
register_key_defvalueW(
348 res
= RegCreateKeyExW(base
, name
, 0, NULL
, 0,
349 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
350 if (res
!= ERROR_SUCCESS
) return res
;
351 res
= RegSetValueExW(key
, NULL
, 0, REG_SZ
, (CONST BYTE
*)value
,
352 (lstrlenW(value
) + 1) * sizeof(WCHAR
));
357 /***********************************************************************
358 * regsvr_key_defvalueA
360 static LONG
register_key_defvalueA(
368 res
= RegCreateKeyExW(base
, name
, 0, NULL
, 0,
369 KEY_READ
| KEY_WRITE
, NULL
, &key
, NULL
);
370 if (res
!= ERROR_SUCCESS
) return res
;
371 res
= RegSetValueExA(key
, NULL
, 0, REG_SZ
, (CONST BYTE
*)value
,
372 lstrlenA(value
) + 1);
377 /***********************************************************************
378 * recursive_delete_key
380 static LONG
recursive_delete_key(HKEY key
)
383 WCHAR subkey_name
[MAX_PATH
];
388 cName
= sizeof(subkey_name
) / sizeof(WCHAR
);
389 res
= RegEnumKeyExW(key
, 0, subkey_name
, &cName
,
390 NULL
, NULL
, NULL
, NULL
);
391 if (res
!= ERROR_SUCCESS
&& res
!= ERROR_MORE_DATA
) {
392 res
= ERROR_SUCCESS
; /* presumably we're done enumerating */
395 res
= RegOpenKeyExW(key
, subkey_name
, 0,
396 KEY_READ
| KEY_WRITE
, &subkey
);
397 if (res
== ERROR_FILE_NOT_FOUND
) continue;
398 if (res
!= ERROR_SUCCESS
) break;
400 res
= recursive_delete_key(subkey
);
402 if (res
!= ERROR_SUCCESS
) break;
405 if (res
== ERROR_SUCCESS
) res
= RegDeleteKeyW(key
, 0);
409 /***********************************************************************
410 * recursive_delete_keyA
412 static LONG
recursive_delete_keyA(HKEY base
, char const *name
)
417 res
= RegOpenKeyExA(base
, name
, 0, KEY_READ
| KEY_WRITE
, &key
);
418 if (res
== ERROR_FILE_NOT_FOUND
) return ERROR_SUCCESS
;
419 if (res
!= ERROR_SUCCESS
) return res
;
420 res
= recursive_delete_key(key
);
425 /***********************************************************************
426 * recursive_delete_keyW
428 static LONG
recursive_delete_keyW(HKEY base
, WCHAR
const *name
)
433 res
= RegOpenKeyExW(base
, name
, 0, KEY_READ
| KEY_WRITE
, &key
);
434 if (res
== ERROR_FILE_NOT_FOUND
) return ERROR_SUCCESS
;
435 if (res
!= ERROR_SUCCESS
) return res
;
436 res
= recursive_delete_key(key
);
441 /***********************************************************************
445 static struct regsvr_coclass
const coclass_list
[] = {
452 { &CLSID_DirectDrawClipper
,
453 "DirectDraw Clipper Object",
458 { NULL
} /* list terminator */
461 /***********************************************************************
465 static struct regsvr_interface
const interface_list
[] = {
466 { NULL
} /* list terminator */
469 /***********************************************************************
470 * DllRegisterServer (DDRAW.@)
472 HRESULT WINAPI
DDRAW_DllRegisterServer()
478 hr
= register_coclasses(coclass_list
);
480 hr
= register_interfaces(interface_list
);
484 /***********************************************************************
485 * DllUnregisterServer (DDRAW.@)
487 HRESULT WINAPI
DDRAW_DllUnregisterServer()
493 hr
= unregister_coclasses(coclass_list
);
495 hr
= unregister_interfaces(interface_list
);