Page 1 of 1
Theme names under XP
Posted: Tue Mar 14, 2006 10:20 pm
by Maurilio Viana
Is possible to detect XP theme names?
I think paint the background color of outlook class based on XP theme (blue, silver or green...).
Regards,
Maurilio
Posted: Wed Mar 15, 2006 8:38 pm
by James Bott
Maurilio,
The answer is supposedly here:
http://www.codeproject.com/csharp/xptheme.asp
It shows how to read this information from the registry. However, the key, ColorName, that it says holds the theme color, doesn't exist in my registry (and I am using themes). So, I don't know the anwser.
James
Re: Theme names under XP
Posted: Wed Mar 15, 2006 9:40 pm
by Enrico Maria Giordano
The API is GetCurrentThemeName() but I don't know how to use it as it requires wide chars strings.
EMG
Posted: Thu Mar 16, 2006 2:06 pm
by Maurilio Viana
Thanks, James and Enrico.
I´ll try any about it.
If I have success I´ll publish here.
Regards!
Maurilio
Posted: Fri Mar 17, 2006 11:21 pm
by Maurilio Viana
Here a single function to detect XP theme name
return:
"WindowsClassic" if no theme is used
"XPBlue" if theme is blue
"XPGreen" if theme is olive green
"XPSilver" if theme is silver
Code: Select all
#define HKEY_CURRENT_USER 2147483649
function CurrentTheme()
local cTheme := "WindowsClassic"
local cKeyName := "Software\Microsoft\Windows\CurrentVersion\ThemeManager\"
oReg := TReg32():New( HKEY_CURRENT_USER, cKeyName )
if oReg:nError == 0
cTheme := StrTran( oReg:Get("ColorName", ""), chr(0),"")
do case
case cTheme == "NormalColor" ; cTheme := "XPBlue"
case cTheme == "HomeStead" ; cTheme := "XPGreen"
case cTheme == "Metallic" ; cTheme := "XPSilver"
otherwise ; cTheme := "WindowsClassic"
endcase
endif
oReg:Close()
return( cTheme )