oleaut32/tests: Get rid of HAVE_OLEAUT32_RECORD in vartest.
[wine.git] / programs / winecfg / winecfg.c
blobea116e8f78b4f64940140f65ce8c386ae667f3a4
1 /*
2 * WineCfg configuration management
4 * Copyright 2002 Jaco Greeff
5 * Copyright 2003 Dimitrie O. Paun
6 * Copyright 2003-2004 Mike Hearn
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 * TODO:
23 * - Use unicode
24 * - Icons in listviews/icons
25 * - Better add app dialog, scan c: for EXE files and add to list in background
26 * - Use [GNOME] HIG style groupboxes rather than win32 style (looks nicer, imho)
30 #define WIN32_LEAN_AND_MEAN
32 #include <assert.h>
33 #include <stdio.h>
34 #include <limits.h>
35 #include <windows.h>
36 #include <winreg.h>
37 #include <wine/unicode.h>
38 #include <wine/debug.h>
39 #include <wine/list.h>
41 WINE_DEFAULT_DEBUG_CHANNEL(winecfg);
43 #include "winecfg.h"
44 #include "resource.h"
46 static const int is_win64 = (sizeof(void *) > sizeof(int));
48 HKEY config_key = NULL;
49 HMENU hPopupMenus = 0;
52 /* this is called from the WM_SHOWWINDOW handlers of each tab page.
54 * it's a nasty hack, necessary because the property sheet insists on resetting the window title
55 * to the title of the tab, which is utterly useless. dropping the property sheet is on the todo list.
57 void set_window_title(HWND dialog)
59 WCHAR newtitle[256];
61 /* update the window title */
62 if (current_app)
64 WCHAR apptitle[256];
65 LoadStringW (GetModuleHandleW(NULL), IDS_WINECFG_TITLE_APP, apptitle,
66 sizeof(apptitle)/sizeof(apptitle[0]));
67 wsprintfW (newtitle, apptitle, current_app);
69 else
71 LoadStringW (GetModuleHandleW(NULL), IDS_WINECFG_TITLE, newtitle,
72 sizeof(newtitle)/sizeof(newtitle[0]));
75 WINE_TRACE("setting title to %s\n", wine_dbgstr_w (newtitle));
76 SendMessageW (GetParent(dialog), PSM_SETTITLEW, 0, (LPARAM) newtitle);
80 WCHAR* load_string (UINT id)
82 WCHAR buf[1024];
83 int len;
84 WCHAR* newStr;
86 LoadStringW (GetModuleHandleW(NULL), id, buf, sizeof(buf)/sizeof(buf[0]));
88 len = lstrlenW (buf);
89 newStr = HeapAlloc (GetProcessHeap(), 0, (len + 1) * sizeof (WCHAR));
90 memcpy (newStr, buf, len * sizeof (WCHAR));
91 newStr[len] = 0;
92 return newStr;
95 /**
96 * get_config_key: Retrieves a configuration value from the registry
98 * char *subkey : the name of the config section
99 * char *name : the name of the config value
100 * char *default : if the key isn't found, return this value instead
102 * Returns a buffer holding the value if successful, NULL if
103 * not. Caller is responsible for releasing the result.
106 static WCHAR *get_config_key (HKEY root, const WCHAR *subkey, const WCHAR *name, const WCHAR *def)
108 LPWSTR buffer = NULL;
109 DWORD len;
110 HKEY hSubKey = NULL;
111 DWORD res;
113 WINE_TRACE("subkey=%s, name=%s, def=%s\n", wine_dbgstr_w(subkey),
114 wine_dbgstr_w(name), wine_dbgstr_w(def));
116 res = RegOpenKeyExW(root, subkey, 0, MAXIMUM_ALLOWED, &hSubKey);
117 if (res != ERROR_SUCCESS)
119 if (res == ERROR_FILE_NOT_FOUND)
121 WINE_TRACE("Section key not present - using default\n");
122 return def ? strdupW(def) : NULL;
124 else
126 WINE_ERR("RegOpenKey failed on wine config key (res=%d)\n", res);
128 goto end;
131 res = RegQueryValueExW(hSubKey, name, NULL, NULL, NULL, &len);
132 if (res == ERROR_FILE_NOT_FOUND)
134 WINE_TRACE("Value not present - using default\n");
135 buffer = def ? strdupW(def) : NULL;
136 goto end;
137 } else if (res != ERROR_SUCCESS)
139 WINE_ERR("Couldn't query value's length (res=%d)\n", res);
140 goto end;
143 buffer = HeapAlloc(GetProcessHeap(), 0, len + sizeof(WCHAR));
145 RegQueryValueExW(hSubKey, name, NULL, NULL, (LPBYTE) buffer, &len);
147 WINE_TRACE("buffer=%s\n", wine_dbgstr_w(buffer));
148 end:
149 RegCloseKey(hSubKey);
151 return buffer;
155 * set_config_key: convenience wrapper to set a key/value pair
157 * const char *subKey : the name of the config section
158 * const char *valueName : the name of the config value
159 * const char *value : the value to set the configuration key to
161 * Returns 0 on success, non-zero otherwise
163 * If valueName or value is NULL, an empty section will be created
165 static int set_config_key(HKEY root, const WCHAR *subkey, REGSAM access, const WCHAR *name, const void *value, DWORD type)
167 DWORD res = 1;
168 HKEY key = NULL;
170 WINE_TRACE("subkey=%s: name=%s, value=%p, type=%d\n", wine_dbgstr_w(subkey),
171 wine_dbgstr_w(name), value, type);
173 assert( subkey != NULL );
175 if (subkey[0])
177 res = RegCreateKeyExW( root, subkey, 0, NULL, REG_OPTION_NON_VOLATILE,
178 access, NULL, &key, NULL );
179 if (res != ERROR_SUCCESS) goto end;
181 else key = root;
182 if (name == NULL || value == NULL) goto end;
184 switch (type)
186 case REG_SZ: res = RegSetValueExW(key, name, 0, REG_SZ, value, (lstrlenW(value)+1)*sizeof(WCHAR)); break;
187 case REG_DWORD: res = RegSetValueExW(key, name, 0, REG_DWORD, value, sizeof(DWORD)); break;
189 if (res != ERROR_SUCCESS) goto end;
191 res = 0;
192 end:
193 if (key && key != root) RegCloseKey(key);
194 if (res != 0)
195 WINE_ERR("Unable to set configuration key %s in section %s, res=%d\n",
196 wine_dbgstr_w(name), wine_dbgstr_w(subkey), res);
197 return res;
200 /* ========================================================================= */
202 /* This code exists for the following reasons:
204 * - It makes working with the registry easier
205 * - By storing a mini cache of the registry, we can more easily implement
206 * cancel/revert and apply. The 'settings list' is an overlay on top of
207 * the actual registry data that we can write out at will.
209 * Rather than model a tree in memory, we simply store each absolute (rooted
210 * at the config key) path.
214 struct setting
216 struct list entry;
217 HKEY root; /* the key on which path is rooted */
218 WCHAR *path; /* path in the registry rooted at root */
219 WCHAR *name; /* name of the registry value. if null, this means delete the key */
220 WCHAR *value; /* contents of the registry value. if null, this means delete the value */
221 DWORD type; /* type of registry value. REG_SZ or REG_DWORD for now */
224 struct list *settings;
226 static void free_setting(struct setting *setting)
228 assert( setting != NULL );
229 assert( setting->path );
231 WINE_TRACE("destroying %p: %s\n", setting,
232 wine_dbgstr_w(setting->path));
234 HeapFree(GetProcessHeap(), 0, setting->path);
235 HeapFree(GetProcessHeap(), 0, setting->name);
236 HeapFree(GetProcessHeap(), 0, setting->value);
238 list_remove(&setting->entry);
240 HeapFree(GetProcessHeap(), 0, setting);
244 * Returns the contents of the value at path. If not in the settings
245 * list, it will be fetched from the registry - failing that, the
246 * default will be used.
248 * If already in the list, the contents as given there will be
249 * returned. You are expected to HeapFree the result.
251 WCHAR *get_reg_keyW(HKEY root, const WCHAR *path, const WCHAR *name, const WCHAR *def)
253 struct list *cursor;
254 struct setting *s;
255 WCHAR *val;
257 WINE_TRACE("path=%s, name=%s, def=%s\n", wine_dbgstr_w(path),
258 wine_dbgstr_w(name), wine_dbgstr_w(def));
260 /* check if it's in the list */
261 LIST_FOR_EACH( cursor, settings )
263 s = LIST_ENTRY(cursor, struct setting, entry);
265 if (root != s->root) continue;
266 if (lstrcmpiW(path, s->path) != 0) continue;
267 if (!s->name) continue;
268 if (lstrcmpiW(name, s->name) != 0) continue;
270 WINE_TRACE("found %s:%s in settings list, returning %s\n",
271 wine_dbgstr_w(path), wine_dbgstr_w(name),
272 wine_dbgstr_w(s->value));
273 return s->value ? strdupW(s->value) : NULL;
276 /* no, so get from the registry */
277 val = get_config_key(root, path, name, def);
279 WINE_TRACE("returning %s\n", wine_dbgstr_w(val));
281 return val;
284 char *get_reg_key(HKEY root, const char *path, const char *name, const char *def)
286 WCHAR *wpath, *wname, *wdef = NULL, *wRet = NULL;
287 char *szRet = NULL;
288 int len;
290 WINE_TRACE("path=%s, name=%s, def=%s\n", path, name, def);
292 wpath = HeapAlloc(GetProcessHeap(), 0, (strlen(path)+1)*sizeof(WCHAR));
293 wname = HeapAlloc(GetProcessHeap(), 0, (strlen(name)+1)*sizeof(WCHAR));
295 MultiByteToWideChar(CP_ACP, 0, path, -1, wpath, strlen(path)+1);
296 MultiByteToWideChar(CP_ACP, 0, name, -1, wname, strlen(name)+1);
298 if (def)
300 wdef = HeapAlloc(GetProcessHeap(), 0, (strlen(def)+1)*sizeof(WCHAR));
301 MultiByteToWideChar(CP_ACP, 0, def, -1, wdef, strlen(def)+1);
304 wRet = get_reg_keyW(root, wpath, wname, wdef);
306 len = WideCharToMultiByte(CP_ACP, 0, wRet, -1, NULL, 0, NULL, NULL);
307 if (len)
309 szRet = HeapAlloc(GetProcessHeap(), 0, len);
310 WideCharToMultiByte(CP_ACP, 0, wRet, -1, szRet, len, NULL, NULL);
313 HeapFree(GetProcessHeap(), 0, wpath);
314 HeapFree(GetProcessHeap(), 0, wname);
315 HeapFree(GetProcessHeap(), 0, wdef);
316 HeapFree(GetProcessHeap(), 0, wRet);
318 return szRet;
322 * Used to set a registry key.
324 * path is rooted at the config key, ie use "Version" or
325 * "AppDefaults\\fooapp.exe\\Version". You can use keypath()
326 * to get such a string.
328 * name is the value name, or NULL to delete the path.
330 * value is what to set the value to, or NULL to delete it.
332 * type is REG_SZ or REG_DWORD.
334 * These values will be copied when necessary.
336 static void set_reg_key_ex(HKEY root, const WCHAR *path, const WCHAR *name, const void *value, DWORD type)
338 struct list *cursor;
339 struct setting *s;
341 assert( path != NULL );
343 WINE_TRACE("path=%s, name=%s, value=%s\n", wine_dbgstr_w(path),
344 wine_dbgstr_w(name), wine_dbgstr_w(value));
346 /* firstly, see if we already set this setting */
347 LIST_FOR_EACH( cursor, settings )
349 struct setting *s = LIST_ENTRY(cursor, struct setting, entry);
351 if (root != s->root) continue;
352 if (lstrcmpiW(s->path, path) != 0) continue;
353 if ((s->name && name) && lstrcmpiW(s->name, name) != 0) continue;
355 /* are we attempting a double delete? */
356 if (!s->name && !name) return;
358 /* do we want to undelete this key? */
359 if (!s->name && name) s->name = strdupW(name);
361 /* yes, we have already set it, so just replace the content and return */
362 HeapFree(GetProcessHeap(), 0, s->value);
363 s->type = type;
364 switch (type)
366 case REG_SZ:
367 s->value = value ? strdupW(value) : NULL;
368 break;
369 case REG_DWORD:
370 s->value = HeapAlloc(GetProcessHeap(), 0, sizeof(DWORD));
371 memcpy( s->value, value, sizeof(DWORD) );
372 break;
375 /* are we deleting this key? this won't remove any of the
376 * children from the overlay so if the user adds it again in
377 * that session it will appear to undelete the settings, but
378 * in reality only the settings actually modified by the user
379 * in that session will be restored. we might want to fix this
380 * corner case in future by actually deleting all the children
381 * here so that once it's gone, it's gone.
383 if (!name) s->name = NULL;
385 return;
388 /* otherwise add a new setting for it */
389 s = HeapAlloc(GetProcessHeap(), 0, sizeof(struct setting));
390 s->root = root;
391 s->path = strdupW(path);
392 s->name = name ? strdupW(name) : NULL;
393 s->type = type;
394 switch (type)
396 case REG_SZ:
397 s->value = value ? strdupW(value) : NULL;
398 break;
399 case REG_DWORD:
400 s->value = HeapAlloc(GetProcessHeap(), 0, sizeof(DWORD));
401 memcpy( s->value, value, sizeof(DWORD) );
402 break;
405 list_add_tail(settings, &s->entry);
408 void set_reg_key(HKEY root, const char *path, const char *name, const char *value)
410 WCHAR *wpath, *wname = NULL, *wvalue = NULL;
412 wpath = HeapAlloc(GetProcessHeap(), 0, (strlen(path)+1)*sizeof(WCHAR));
413 MultiByteToWideChar(CP_ACP, 0, path, -1, wpath, strlen(path)+1);
415 if (name)
417 wname = HeapAlloc(GetProcessHeap(), 0, (strlen(name)+1)*sizeof(WCHAR));
418 MultiByteToWideChar(CP_ACP, 0, name, -1, wname, strlen(name)+1);
421 if (value)
423 wvalue = HeapAlloc(GetProcessHeap(), 0, (strlen(value)+1)*sizeof(WCHAR));
424 MultiByteToWideChar(CP_ACP, 0, value, -1, wvalue, strlen(value)+1);
427 set_reg_key_ex(root, wpath, wname, wvalue, REG_SZ);
429 HeapFree(GetProcessHeap(), 0, wpath);
430 HeapFree(GetProcessHeap(), 0, wname);
431 HeapFree(GetProcessHeap(), 0, wvalue);
434 void set_reg_key_dword(HKEY root, const char *path, const char *name, DWORD value)
436 WCHAR *wpath, *wname;
438 wpath = HeapAlloc(GetProcessHeap(), 0, (strlen(path)+1)*sizeof(WCHAR));
439 wname = HeapAlloc(GetProcessHeap(), 0, (strlen(name)+1)*sizeof(WCHAR));
441 MultiByteToWideChar(CP_ACP, 0, path, -1, wpath, strlen(path)+1);
442 MultiByteToWideChar(CP_ACP, 0, name, -1, wname, strlen(name)+1);
444 set_reg_key_ex(root, wpath, wname, &value, REG_DWORD);
446 HeapFree(GetProcessHeap(), 0, wpath);
447 HeapFree(GetProcessHeap(), 0, wname);
450 void set_reg_keyW(HKEY root, const WCHAR *path, const WCHAR *name, const WCHAR *value)
452 set_reg_key_ex(root, path, name, value, REG_SZ);
455 void set_reg_key_dwordW(HKEY root, const WCHAR *path, const WCHAR *name, DWORD value)
457 set_reg_key_ex(root, path, name, &value, REG_DWORD);
461 * enumerates the value names at the given path, taking into account
462 * the changes in the settings list.
464 * you are expected to HeapFree each element of the array, which is null
465 * terminated, as well as the array itself.
467 static WCHAR **enumerate_valuesW(HKEY root, WCHAR *path)
469 HKEY key;
470 DWORD res, i = 0, valueslen = 0;
471 WCHAR **values = NULL;
472 struct list *cursor;
474 res = RegOpenKeyExW(root, path, 0, MAXIMUM_ALLOWED, &key);
475 if (res == ERROR_SUCCESS)
477 while (TRUE)
479 WCHAR name[1024];
480 DWORD namesize = sizeof(name)/sizeof(name[0]);
481 BOOL removed = FALSE;
483 /* find out the needed size, allocate a buffer, read the value */
484 if ((res = RegEnumValueW(key, i, name, &namesize, NULL, NULL, NULL, NULL)) != ERROR_SUCCESS)
485 break;
487 WINE_TRACE("name=%s\n", wine_dbgstr_w(name));
489 /* check if this value name has been removed in the settings list */
490 LIST_FOR_EACH( cursor, settings )
492 struct setting *s = LIST_ENTRY(cursor, struct setting, entry);
493 if (lstrcmpiW(s->path, path) != 0) continue;
494 if (lstrcmpiW(s->name, name) != 0) continue;
496 if (!s->value)
498 WINE_TRACE("this key has been removed, so skipping\n");
499 removed = TRUE;
500 break;
504 if (removed) /* this value was deleted by the user, so don't include it */
506 i++;
507 continue;
510 /* grow the array if necessary, add buffer to it, iterate */
511 if (values) values = HeapReAlloc(GetProcessHeap(), 0, values, sizeof(WCHAR*) * (valueslen + 1));
512 else values = HeapAlloc(GetProcessHeap(), 0, sizeof(WCHAR*));
514 values[valueslen++] = strdupW(name);
515 WINE_TRACE("valueslen is now %d\n", valueslen);
516 i++;
519 else
521 WINE_WARN("failed opening registry key %s, res=0x%x\n",
522 wine_dbgstr_w(path), res);
525 WINE_TRACE("adding settings in list but not registry\n");
527 /* now we have to add the values that aren't in the registry but are in the settings list */
528 LIST_FOR_EACH( cursor, settings )
530 struct setting *setting = LIST_ENTRY(cursor, struct setting, entry);
531 BOOL found = FALSE;
533 if (lstrcmpiW(setting->path, path) != 0) continue;
535 if (!setting->value) continue;
537 for (i = 0; i < valueslen; i++)
539 if (lstrcmpiW(setting->name, values[i]) == 0)
541 found = TRUE;
542 break;
546 if (found) continue;
548 WINE_TRACE("%s in list but not registry\n", wine_dbgstr_w(setting->name));
550 /* otherwise it's been set by the user but isn't in the registry */
551 if (values) values = HeapReAlloc(GetProcessHeap(), 0, values, sizeof(WCHAR*) * (valueslen + 1));
552 else values = HeapAlloc(GetProcessHeap(), 0, sizeof(WCHAR*));
554 values[valueslen++] = strdupW(setting->name);
557 WINE_TRACE("adding null terminator\n");
558 if (values)
560 values = HeapReAlloc(GetProcessHeap(), 0, values, sizeof(WCHAR*) * (valueslen + 1));
561 values[valueslen] = NULL;
564 RegCloseKey(key);
566 return values;
569 char **enumerate_values(HKEY root, char *path)
571 WCHAR *wpath;
572 WCHAR **wret;
573 char **ret=NULL;
574 int i=0, len=0;
576 wpath = HeapAlloc(GetProcessHeap(), 0, (strlen(path)+1)*sizeof(WCHAR));
577 MultiByteToWideChar(CP_ACP, 0, path, -1, wpath, strlen(path)+1);
579 wret = enumerate_valuesW(root, wpath);
581 if (wret)
583 for(len=0; wret[len]; len++);
584 ret = HeapAlloc(GetProcessHeap(), 0, (len+1)*sizeof(char*));
586 /* convert WCHAR ** to char ** and HeapFree each WCHAR * element on our way */
587 for (i=0; i<len; i++)
589 ret[i] = HeapAlloc(GetProcessHeap(), 0,
590 (lstrlenW(wret[i]) + 1) * sizeof(char));
591 WideCharToMultiByte(CP_ACP, 0, wret[i], -1, ret[i],
592 lstrlenW(wret[i]) + 1, NULL, NULL);
593 HeapFree(GetProcessHeap(), 0, wret[i]);
595 ret[len] = NULL;
598 HeapFree(GetProcessHeap(), 0, wpath);
599 HeapFree(GetProcessHeap(), 0, wret);
601 return ret;
605 * returns true if the given key/value pair exists in the registry or
606 * has been written to.
608 BOOL reg_key_exists(HKEY root, const char *path, const char *name)
610 char *val = get_reg_key(root, path, name, NULL);
612 if (val)
614 HeapFree(GetProcessHeap(), 0, val);
615 return TRUE;
618 return FALSE;
621 static void process_setting(struct setting *s)
623 static const WCHAR softwareW[] = {'S','o','f','t','w','a','r','e','\\'};
624 HKEY key;
625 BOOL needs_wow64 = (is_win64 && s->root == HKEY_LOCAL_MACHINE && s->path &&
626 !strncmpiW( s->path, softwareW, sizeof(softwareW)/sizeof(WCHAR) ));
628 if (s->value)
630 WINE_TRACE("Setting %s:%s to '%s'\n", wine_dbgstr_w(s->path),
631 wine_dbgstr_w(s->name), wine_dbgstr_w(s->value));
632 set_config_key(s->root, s->path, MAXIMUM_ALLOWED, s->name, s->value, s->type);
633 if (needs_wow64)
635 WINE_TRACE("Setting 32-bit %s:%s to '%s'\n", wine_dbgstr_w(s->path),
636 wine_dbgstr_w(s->name), wine_dbgstr_w(s->value));
637 set_config_key(s->root, s->path, MAXIMUM_ALLOWED | KEY_WOW64_32KEY, s->name, s->value, s->type);
640 else
642 WINE_TRACE("Removing %s:%s\n", wine_dbgstr_w(s->path), wine_dbgstr_w(s->name));
643 if (!RegOpenKeyExW( s->root, s->path, 0, MAXIMUM_ALLOWED, &key ))
645 /* NULL name means remove that path/section entirely */
646 if (s->name) RegDeleteValueW( key, s->name );
647 else
649 RegDeleteTreeW( key, NULL );
650 RegDeleteKeyW( s->root, s->path );
652 RegCloseKey( key );
654 if (needs_wow64)
656 WINE_TRACE("Removing 32-bit %s:%s\n", wine_dbgstr_w(s->path), wine_dbgstr_w(s->name));
657 if (!RegOpenKeyExW( s->root, s->path, 0, MAXIMUM_ALLOWED | KEY_WOW64_32KEY, &key ))
659 if (s->name) RegDeleteValueW( key, s->name );
660 else
662 RegDeleteTreeW( key, NULL );
663 RegDeleteKeyExW( s->root, s->path, KEY_WOW64_32KEY, 0 );
665 RegCloseKey( key );
671 void apply(void)
673 if (list_empty(settings)) return; /* we will be called for each page when the user clicks OK */
675 WINE_TRACE("()\n");
677 while (!list_empty(settings))
679 struct setting *s = (struct setting *) list_head(settings);
680 process_setting(s);
681 free_setting(s);
685 /* ================================== utility functions ============================ */
687 WCHAR* current_app = NULL; /* the app we are currently editing, or NULL if editing global */
689 /* returns a registry key path suitable for passing to addTransaction */
690 char *keypath(const char *section)
692 static char *result = NULL;
694 HeapFree(GetProcessHeap(), 0, result);
696 if (current_app)
698 result = HeapAlloc(GetProcessHeap(), 0, strlen("AppDefaults\\") + lstrlenW(current_app)*2 + 2 /* \\ */ + strlen(section) + 1 /* terminator */);
699 wsprintfA(result, "AppDefaults\\%ls", current_app);
700 if (section[0]) sprintf( result + strlen(result), "\\%s", section );
702 else
704 result = strdupA(section);
707 return result;
710 WCHAR *keypathW(const WCHAR *section)
712 static const WCHAR appdefaultsW[] = {'A','p','p','D','e','f','a','u','l','t','s','\\',0};
713 static WCHAR *result = NULL;
715 HeapFree(GetProcessHeap(), 0, result);
717 if (current_app)
719 DWORD len = sizeof(appdefaultsW) + (lstrlenW(current_app) + lstrlenW(section) + 1) * sizeof(WCHAR);
720 result = HeapAlloc(GetProcessHeap(), 0, len );
721 lstrcpyW( result, appdefaultsW );
722 lstrcatW( result, current_app );
723 if (section[0])
725 len = lstrlenW(result);
726 result[len++] = '\\';
727 lstrcpyW( result + len, section );
730 else
732 result = strdupW(section);
735 return result;
738 void PRINTERROR(void)
740 LPSTR msg;
742 FormatMessageA(FORMAT_MESSAGE_ALLOCATE_BUFFER|FORMAT_MESSAGE_FROM_SYSTEM,
743 0, GetLastError(), MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),
744 (LPSTR)&msg, 0, NULL);
746 /* eliminate trailing newline, is this a Wine bug? */
747 *(strrchr(msg, '\r')) = '\0';
749 WINE_TRACE("error: '%s'\n", msg);
752 int initialize(HINSTANCE hInstance)
754 DWORD res = RegCreateKeyA(HKEY_CURRENT_USER, WINE_KEY_ROOT, &config_key);
756 if (res != ERROR_SUCCESS) {
757 WINE_ERR("RegOpenKey failed on wine config key (%d)\n", res);
758 return 1;
761 /* we could probably just have the list as static data */
762 settings = HeapAlloc(GetProcessHeap(), 0, sizeof(struct list));
763 list_init(settings);
765 return 0;