2 * Win32 5.1 Theme system
4 * Copyright (C) 2003 Kevin Koltzau
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
34 #include "uxthemedll.h"
37 #include "wine/debug.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(uxtheme
);
41 /***********************************************************************
42 * Defines and global variables
45 static const WCHAR szThemeManager
[] = {
46 'S','o','f','t','w','a','r','e','\\',
47 'M','i','c','r','o','s','o','f','t','\\',
48 'W','i','n','d','o','w','s','\\',
49 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
50 'T','h','e','m','e','M','a','n','a','g','e','r','\0'
52 static const WCHAR szThemeActive
[] = {'T','h','e','m','e','A','c','t','i','v','e','\0'};
53 static const WCHAR szSizeName
[] = {'S','i','z','e','N','a','m','e','\0'};
54 static const WCHAR szColorName
[] = {'C','o','l','o','r','N','a','m','e','\0'};
55 static const WCHAR szDllName
[] = {'D','l','l','N','a','m','e','\0'};
57 static const WCHAR szIniDocumentation
[] = {'d','o','c','u','m','e','n','t','a','t','i','o','n','\0'};
61 DWORD dwThemeAppProperties
= STAP_ALLOW_NONCLIENT
| STAP_ALLOW_CONTROLS
;
66 BOOL bThemeActive
= FALSE
;
67 WCHAR szCurrentTheme
[MAX_PATH
];
68 WCHAR szCurrentColor
[64];
69 WCHAR szCurrentSize
[64];
71 /***********************************************************************/
73 /***********************************************************************
76 * Set the current active theme from the registry
78 void UXTHEME_LoadTheme()
86 /* Get current theme configuration */
87 if(!RegOpenKeyW(HKEY_CURRENT_USER
, szThemeManager
, &hKey
)) {
88 TRACE("Loading theme config\n");
89 buffsize
= sizeof(tmp
)/sizeof(tmp
[0]);
90 if(!RegQueryValueExW(hKey
, szThemeActive
, NULL
, NULL
, (LPBYTE
)tmp
, &buffsize
)) {
91 bThemeActive
= (tmp
[0] != '0');
95 TRACE("Failed to get ThemeActive: %ld\n", GetLastError());
97 buffsize
= sizeof(szCurrentColor
)/sizeof(szCurrentColor
[0]);
98 if(RegQueryValueExW(hKey
, szColorName
, NULL
, NULL
, (LPBYTE
)szCurrentColor
, &buffsize
))
99 szCurrentColor
[0] = '\0';
100 buffsize
= sizeof(szCurrentSize
)/sizeof(szCurrentSize
[0]);
101 if(RegQueryValueExW(hKey
, szSizeName
, NULL
, NULL
, (LPBYTE
)szCurrentSize
, &buffsize
))
102 szCurrentSize
[0] = '\0';
103 if(SHRegGetPathW(hKey
, NULL
, szDllName
, szCurrentTheme
, 0))
104 szCurrentTheme
[0] = '\0';
108 TRACE("Failed to open theme registry key\n");
111 /* Make sure the theme requested is actually valid */
112 hr
= MSSTYLES_OpenThemeFile(szCurrentTheme
,
113 szCurrentColor
[0]?szCurrentColor
:NULL
,
114 szCurrentSize
[0]?szCurrentSize
:NULL
,
117 bThemeActive
= FALSE
;
118 szCurrentTheme
[0] = '\0';
119 szCurrentColor
[0] = '\0';
120 szCurrentSize
[0] = '\0';
123 /* Make sure the global color & size match the theme */
124 lstrcpynW(szCurrentColor
, pt
->pszSelectedColor
, sizeof(szCurrentColor
)/sizeof(szCurrentColor
[0]));
125 lstrcpynW(szCurrentSize
, pt
->pszSelectedSize
, sizeof(szCurrentSize
)/sizeof(szCurrentSize
[0]));
127 MSSTYLES_SetActiveTheme(pt
);
128 TRACE("Theme active: %s %s %s\n", debugstr_w(szCurrentTheme
),
129 debugstr_w(szCurrentColor
), debugstr_w(szCurrentSize
));
130 MSSTYLES_CloseThemeFile(pt
);
134 MSSTYLES_SetActiveTheme(NULL
);
135 TRACE("Themeing not active\n");
139 /***********************************************************************
140 * UXTHEME_SetActiveTheme
142 * Change the current active theme
144 HRESULT
UXTHEME_SetActiveTheme(PTHEME_FILE tf
)
150 hr
= MSSTYLES_SetActiveTheme(tf
);
155 lstrcpynW(szCurrentTheme
, tf
->szThemeFile
, sizeof(szCurrentTheme
)/sizeof(szCurrentTheme
[0]));
156 lstrcpynW(szCurrentColor
, tf
->pszSelectedColor
, sizeof(szCurrentColor
)/sizeof(szCurrentColor
[0]));
157 lstrcpynW(szCurrentSize
, tf
->pszSelectedSize
, sizeof(szCurrentSize
)/sizeof(szCurrentSize
[0]));
160 bThemeActive
= FALSE
;
161 szCurrentTheme
[0] = '\0';
162 szCurrentColor
[0] = '\0';
163 szCurrentSize
[0] = '\0';
166 TRACE("Writing theme config to registry\n");
167 if(!RegCreateKeyW(HKEY_CURRENT_USER
, szThemeManager
, &hKey
)) {
168 tmp
[0] = bThemeActive
?'1':'0';
170 RegSetValueExW(hKey
, szThemeActive
, 0, REG_SZ
, (const BYTE
*)tmp
, sizeof(WCHAR
)*2);
172 RegSetValueExW(hKey
, szColorName
, 0, REG_SZ
, (const BYTE
*)szCurrentColor
, lstrlenW(szCurrentColor
)+1);
173 RegSetValueExW(hKey
, szSizeName
, 0, REG_SZ
, (const BYTE
*)szCurrentSize
, lstrlenW(szCurrentSize
)+1);
174 RegSetValueExW(hKey
, szDllName
, 0, REG_SZ
, (const BYTE
*)szCurrentTheme
, lstrlenW(szCurrentTheme
)+1);
177 RegDeleteValueW(hKey
, szColorName
);
178 RegDeleteValueW(hKey
, szSizeName
);
179 RegDeleteValueW(hKey
, szDllName
);
185 TRACE("Failed to open theme registry key\n");
189 /***********************************************************************
192 void UXTHEME_InitSystem(HINSTANCE hInst
)
194 const WCHAR szWindowTheme
[] = {
195 'u','x','_','t','h','e','m','e','\0'
197 const WCHAR szSubAppName
[] = {
198 'u','x','_','s','u','b','a','p','p','\0'
200 const WCHAR szSubIdList
[] = {
201 'u','x','_','s','u','b','i','d','l','s','t','\0'
206 atWindowTheme
= GlobalAddAtomW(szWindowTheme
);
207 atSubAppName
= GlobalAddAtomW(szSubAppName
);
208 atSubIdList
= GlobalAddAtomW(szSubIdList
);
213 /***********************************************************************
214 * IsAppThemed (UXTHEME.@)
216 BOOL WINAPI
IsAppThemed(void)
218 return IsThemeActive();
221 /***********************************************************************
222 * IsThemeActive (UXTHEME.@)
224 BOOL WINAPI
IsThemeActive(void)
230 /***********************************************************************
231 * EnableTheming (UXTHEME.@)
234 * This is a global and persistent change
236 HRESULT WINAPI
EnableTheming(BOOL fEnable
)
239 WCHAR szEnabled
[] = {'0','\0'};
241 TRACE("(%d)\n", fEnable
);
243 if(fEnable
!= bThemeActive
) {
244 bThemeActive
= fEnable
;
245 if(bThemeActive
) szEnabled
[0] = '1';
246 if(!RegOpenKeyW(HKEY_CURRENT_USER
, szThemeManager
, &hKey
)) {
247 RegSetValueExW(hKey
, szThemeActive
, 0, REG_SZ
, (LPBYTE
)szEnabled
, sizeof(WCHAR
));
250 PostMessageW(HWND_BROADCAST
, WM_THEMECHANGED
, 0, 0);
255 /***********************************************************************
256 * UXTHEME_SetWindowProperty
258 * I'm using atoms as there may be large numbers of duplicated strings
259 * and they do the work of keeping memory down as a cause of that quite nicely
261 HRESULT
UXTHEME_SetWindowProperty(HWND hwnd
, ATOM aProp
, LPCWSTR pszValue
)
263 ATOM oldValue
= (ATOM
)(size_t)RemovePropW(hwnd
, MAKEINTATOMW(aProp
));
265 DeleteAtom(oldValue
);
267 ATOM atValue
= AddAtomW(pszValue
);
269 || !SetPropW(hwnd
, MAKEINTATOMW(aProp
), (LPWSTR
)MAKEINTATOMW(atValue
))) {
270 HRESULT hr
= HRESULT_FROM_WIN32(GetLastError());
271 if(atValue
) DeleteAtom(atValue
);
278 LPWSTR
UXTHEME_GetWindowProperty(HWND hwnd
, ATOM aProp
, LPWSTR pszBuffer
, int dwLen
)
280 ATOM atValue
= (ATOM
)(size_t)GetPropW(hwnd
, MAKEINTATOMW(aProp
));
282 if(GetAtomNameW(atValue
, pszBuffer
, dwLen
))
284 TRACE("property defined, but unable to get value\n");
289 /***********************************************************************
290 * OpenThemeData (UXTHEME.@)
292 HTHEME WINAPI
OpenThemeData(HWND hwnd
, LPCWSTR pszClassList
)
294 WCHAR szAppBuff
[256];
295 WCHAR szClassBuff
[256];
297 LPCWSTR pszUseClassList
;
299 TRACE("(%p,%s)\n", hwnd
, debugstr_w(pszClassList
));
303 pszAppName
= UXTHEME_GetWindowProperty(hwnd
, atSubAppName
, szAppBuff
, sizeof(szAppBuff
)/sizeof(szAppBuff
[0]));
304 /* If SetWindowTheme was used on the window, that overrides the class list passed to this function */
305 pszUseClassList
= UXTHEME_GetWindowProperty(hwnd
, atSubIdList
, szClassBuff
, sizeof(szClassBuff
)/sizeof(szClassBuff
[0]));
307 pszUseClassList
= pszClassList
;
309 hTheme
= MSSTYLES_OpenThemeClass(pszAppName
, pszUseClassList
);
311 SetPropW(hwnd
, MAKEINTATOMW(atWindowTheme
), hTheme
);
315 /***********************************************************************
316 * GetWindowTheme (UXTHEME.@)
318 * Retrieve the last theme opened for a window
320 HTHEME WINAPI
GetWindowTheme(HWND hwnd
)
322 TRACE("(%p)\n", hwnd
);
323 return GetPropW(hwnd
, MAKEINTATOMW(atWindowTheme
));
326 /***********************************************************************
327 * SetWindowTheme (UXTHEME.@)
329 * Persistent through the life of the window, even after themes change
331 HRESULT WINAPI
SetWindowTheme(HWND hwnd
, LPCWSTR pszSubAppName
,
332 LPCWSTR pszSubIdList
)
335 TRACE("(%p,%s,%s)\n", hwnd
, debugstr_w(pszSubAppName
),
336 debugstr_w(pszSubIdList
));
337 hr
= UXTHEME_SetWindowProperty(hwnd
, atSubAppName
, pszSubAppName
);
339 hr
= UXTHEME_SetWindowProperty(hwnd
, atSubIdList
, pszSubIdList
);
341 PostMessageW(hwnd
, WM_THEMECHANGED
, 0, 0);
345 /***********************************************************************
346 * GetCurrentThemeName (UXTHEME.@)
348 HRESULT WINAPI
GetCurrentThemeName(LPWSTR pszThemeFileName
, int dwMaxNameChars
,
349 LPWSTR pszColorBuff
, int cchMaxColorChars
,
350 LPWSTR pszSizeBuff
, int cchMaxSizeChars
)
353 return E_PROP_ID_UNSUPPORTED
;
354 if(pszThemeFileName
) lstrcpynW(pszThemeFileName
, szCurrentTheme
, dwMaxNameChars
);
355 if(pszColorBuff
) lstrcpynW(pszColorBuff
, szCurrentColor
, cchMaxColorChars
);
356 if(pszSizeBuff
) lstrcpynW(pszSizeBuff
, szCurrentSize
, cchMaxSizeChars
);
360 /***********************************************************************
361 * GetThemeAppProperties (UXTHEME.@)
363 DWORD WINAPI
GetThemeAppProperties(void)
365 return dwThemeAppProperties
;
368 /***********************************************************************
369 * SetThemeAppProperties (UXTHEME.@)
371 void WINAPI
SetThemeAppProperties(DWORD dwFlags
)
373 TRACE("(0x%08lx)\n", dwFlags
);
374 dwThemeAppProperties
= dwFlags
;
377 /***********************************************************************
378 * CloseThemeData (UXTHEME.@)
380 HRESULT WINAPI
CloseThemeData(HTHEME hTheme
)
382 TRACE("(%p)\n", hTheme
);
385 return MSSTYLES_CloseThemeClass(hTheme
);
388 /***********************************************************************
389 * HitTestThemeBackground (UXTHEME.@)
391 HRESULT WINAPI
HitTestThemeBackground(HTHEME hTheme
, HDC hdc
, int iPartId
,
392 int iStateId
, DWORD dwOptions
,
393 const RECT
*pRect
, HRGN hrgn
,
394 POINT ptTest
, WORD
*pwHitTestCode
)
396 FIXME("%d %d 0x%08lx: stub\n", iPartId
, iStateId
, dwOptions
);
399 return ERROR_CALL_NOT_IMPLEMENTED
;
402 /***********************************************************************
403 * IsThemePartDefined (UXTHEME.@)
405 BOOL WINAPI
IsThemePartDefined(HTHEME hTheme
, int iPartId
, int iStateId
)
407 TRACE("(%p,%d,%d)\n", hTheme
, iPartId
, iStateId
);
408 if(MSSTYLES_FindPartState(hTheme
, iPartId
, iStateId
, NULL
))
413 /***********************************************************************
414 * GetThemeDocumentationProperty (UXTHEME.@)
416 * Try and retrieve the documentation property from string resources
417 * if that fails, get it from the [documentation] section of themes.ini
419 HRESULT WINAPI
GetThemeDocumentationProperty(LPCWSTR pszThemeName
,
420 LPCWSTR pszPropertyName
,
424 const WORD wDocToRes
[] = {
425 TMT_DISPLAYNAME
,5000,
439 TRACE("(%s,%s,%p,%d)\n", debugstr_w(pszThemeName
), debugstr_w(pszPropertyName
),
440 pszValueBuff
, cchMaxValChars
);
442 hr
= MSSTYLES_OpenThemeFile(pszThemeName
, NULL
, NULL
, &pt
);
443 if(FAILED(hr
)) return hr
;
445 /* Try to load from string resources */
446 hr
= E_PROP_ID_UNSUPPORTED
;
447 if(MSSTYLES_LookupProperty(pszPropertyName
, NULL
, &iDocId
)) {
448 for(i
=0; i
<sizeof(wDocToRes
)/sizeof(wDocToRes
[0]); i
+=2) {
449 if(wDocToRes
[i
] == iDocId
) {
450 if(LoadStringW(pt
->hTheme
, wDocToRes
[i
+1], pszValueBuff
, cchMaxValChars
)) {
457 /* If loading from string resource failed, try getting it from the theme.ini */
459 PUXINI_FILE uf
= MSSTYLES_GetThemeIni(pt
);
460 if(UXINI_FindSection(uf
, szIniDocumentation
)) {
463 if(UXINI_FindValue(uf
, pszPropertyName
, &lpValue
, &dwLen
)) {
464 lstrcpynW(pszValueBuff
, lpValue
, min(dwLen
+1,cchMaxValChars
));
471 MSSTYLES_CloseThemeFile(pt
);
475 /**********************************************************************
476 * Undocumented functions
479 /**********************************************************************
480 * QueryThemeServices (UXTHEME.1)
483 * some kind of status flag
485 DWORD WINAPI
QueryThemeServices()
488 return 3; /* This is what is returned under XP in most cases */
492 /**********************************************************************
493 * OpenThemeFile (UXTHEME.2)
495 * Opens a theme file, which can be used to change the current theme, etc
498 * pszThemeFileName Path to a msstyles theme file
499 * pszColorName Color defined in the theme, eg. NormalColor
500 * pszSizeName Size defined in the theme, eg. NormalSize
501 * hThemeFile Handle to theme file
503 HRESULT WINAPI
OpenThemeFile(LPCWSTR pszThemeFileName
, LPCWSTR pszColorName
,
504 LPCWSTR pszSizeName
, HTHEMEFILE
*hThemeFile
,
507 TRACE("(%s,%s,%s,%p,%ld)\n", debugstr_w(pszThemeFileName
),
508 debugstr_w(pszColorName
), debugstr_w(pszSizeName
),
509 hThemeFile
, unknown
);
510 return MSSTYLES_OpenThemeFile(pszThemeFileName
, pszColorName
, pszSizeName
, (PTHEME_FILE
*)hThemeFile
);
513 /**********************************************************************
514 * CloseThemeFile (UXTHEME.3)
516 * Releases theme file handle returned by OpenThemeFile
519 * hThemeFile Handle to theme file
521 HRESULT WINAPI
CloseThemeFile(HTHEMEFILE hThemeFile
)
523 TRACE("(%p)\n", hThemeFile
);
524 MSSTYLES_CloseThemeFile(hThemeFile
);
528 /**********************************************************************
529 * ApplyTheme (UXTHEME.4)
531 * Set a theme file to be the currently active theme
534 * hThemeFile Handle to theme file
536 * hWnd Window requesting the theme change
539 * I'm not sure what the second parameter is (the datatype is likely wrong), other then this:
542 * the theme is applied with the screen redrawing really badly (flickers)
543 * char b[] = "\0"; where \0 can be one or more of any character, makes no difference
544 * the theme is applied smoothly (screen does not flicker)
545 * char *b = "\0" or NULL; where \0 can be zero or more of any character, makes no difference
546 * the function fails returning invalid parameter...very strange
548 HRESULT WINAPI
ApplyTheme(HTHEMEFILE hThemeFile
, char *unknown
, HWND hWnd
)
551 TRACE("(%p,%s,%p)\n", hThemeFile
, unknown
, hWnd
);
552 hr
= UXTHEME_SetActiveTheme(hThemeFile
);
553 PostMessageW(HWND_BROADCAST
, WM_THEMECHANGED
, 0, 0);
557 /**********************************************************************
558 * GetThemeDefaults (UXTHEME.7)
560 * Get the default color & size for a theme
563 * pszThemeFileName Path to a msstyles theme file
564 * pszColorName Buffer to receive the default color name
565 * dwColorNameLen Length, in characters, of color name buffer
566 * pszSizeName Buffer to receive the default size name
567 * dwSizeNameLen Length, in characters, of size name buffer
569 HRESULT WINAPI
GetThemeDefaults(LPCWSTR pszThemeFileName
, LPWSTR pszColorName
,
570 DWORD dwColorNameLen
, LPWSTR pszSizeName
,
575 TRACE("(%s,%p,%ld,%p,%ld)\n", debugstr_w(pszThemeFileName
),
576 pszColorName
, dwColorNameLen
,
577 pszSizeName
, dwSizeNameLen
);
579 hr
= MSSTYLES_OpenThemeFile(pszThemeFileName
, NULL
, NULL
, &pt
);
580 if(FAILED(hr
)) return hr
;
582 lstrcpynW(pszColorName
, pt
->pszSelectedColor
, dwColorNameLen
);
583 lstrcpynW(pszSizeName
, pt
->pszSelectedSize
, dwSizeNameLen
);
585 MSSTYLES_CloseThemeFile(pt
);
589 /**********************************************************************
590 * EnumThemes (UXTHEME.8)
592 * Enumerate available themes, calls specified EnumThemeProc for each
593 * theme found. Passes lpData through to callback function.
596 * pszThemePath Path containing themes
597 * callback Called for each theme found in path
598 * lpData Passed through to callback
600 HRESULT WINAPI
EnumThemes(LPCWSTR pszThemePath
, EnumThemeProc callback
,
603 FIXME("%s: stub\n", debugstr_w(pszThemePath
));
604 return ERROR_CALL_NOT_IMPLEMENTED
;
608 /**********************************************************************
609 * EnumThemeColors (UXTHEME.9)
611 * Enumerate theme colors available with a particular size
614 * pszThemeFileName Path to a msstyles theme file
615 * pszSizeName Theme size to enumerate available colors
616 * If NULL the default theme size is used
617 * dwColorNum Color index to retrieve, increment from 0
618 * pszColorName Output color name
622 * E_PROP_ID_UNSUPPORTED when dwColorName does not refer to a color
623 * or when pszSizeName does not refer to a valid size
626 * XP fails with E_POINTER when pszColorName points to a buffer smaller then 605
629 * Not very efficient that I'm opening & validating the theme every call, but
630 * this is undocumented and almost never called..
631 * (and this is how windows works too)
633 HRESULT WINAPI
EnumThemeColors(LPWSTR pszThemeFileName
, LPWSTR pszSizeName
,
634 DWORD dwColorNum
, LPWSTR pszColorName
)
639 TRACE("(%s,%s,%ld)\n", debugstr_w(pszThemeFileName
),
640 debugstr_w(pszSizeName
), dwColorNum
);
642 hr
= MSSTYLES_OpenThemeFile(pszThemeFileName
, NULL
, pszSizeName
, &pt
);
643 if(FAILED(hr
)) return hr
;
645 tmp
= pt
->pszAvailColors
;
646 while(dwColorNum
&& *tmp
) {
648 tmp
+= lstrlenW(tmp
)+1;
650 if(!dwColorNum
&& *tmp
) {
651 TRACE("%s\n", debugstr_w(tmp
));
652 lstrcpyW(pszColorName
, tmp
);
655 hr
= E_PROP_ID_UNSUPPORTED
;
657 MSSTYLES_CloseThemeFile(pt
);
661 /**********************************************************************
662 * EnumThemeSizes (UXTHEME.10)
664 * Enumerate theme colors available with a particular size
667 * pszThemeFileName Path to a msstyles theme file
668 * pszColorName Theme color to enumerate available sizes
669 * If NULL the default theme color is used
670 * dwSizeNum Size index to retrieve, increment from 0
671 * pszSizeName Output size name
675 * E_PROP_ID_UNSUPPORTED when dwSizeName does not refer to a size
676 * or when pszColorName does not refer to a valid color
679 * XP fails with E_POINTER when pszSizeName points to a buffer smaller then 605
682 * Not very efficient that I'm opening & validating the theme every call, but
683 * this is undocumented and almost never called..
684 * (and this is how windows works too)
686 HRESULT WINAPI
EnumThemeSizes(LPWSTR pszThemeFileName
, LPWSTR pszColorName
,
687 DWORD dwSizeNum
, LPWSTR pszSizeName
)
692 TRACE("(%s,%s,%ld)\n", debugstr_w(pszThemeFileName
),
693 debugstr_w(pszColorName
), dwSizeNum
);
695 hr
= MSSTYLES_OpenThemeFile(pszThemeFileName
, pszColorName
, NULL
, &pt
);
696 if(FAILED(hr
)) return hr
;
698 tmp
= pt
->pszAvailSizes
;
699 while(dwSizeNum
&& *tmp
) {
701 tmp
+= lstrlenW(tmp
)+1;
703 if(!dwSizeNum
&& *tmp
) {
704 TRACE("%s\n", debugstr_w(tmp
));
705 lstrcpyW(pszSizeName
, tmp
);
708 hr
= E_PROP_ID_UNSUPPORTED
;
710 MSSTYLES_CloseThemeFile(pt
);
714 /**********************************************************************
715 * ParseThemeIniFile (UXTHEME.11)
717 * Enumerate data in a theme INI file.
720 * pszIniFileName Path to a theme ini file
721 * pszUnknown Cannot be NULL, L"" is valid
722 * callback Called for each found entry
723 * lpData Passed through to callback
727 * 0x800706488 (Unknown property) when enumeration is canceled from callback
730 * When pszUnknown is NULL the callback is never called, the value does not seem to surve
733 HRESULT WINAPI
ParseThemeIniFile(LPCWSTR pszIniFileName
, LPWSTR pszUnknown
,
734 ParseThemeIniFileProc callback
, LPVOID lpData
)
736 FIXME("%s %s: stub\n", debugstr_w(pszIniFileName
), debugstr_w(pszUnknown
));
737 return ERROR_CALL_NOT_IMPLEMENTED
;