Windows XP Style

[Myvar]

Hello!

Does someone know how to read out (on Windows XP, with Visual Basic 6) what Style is actually loaded on a Target PC. I need to know if it is Windows XP Style Blue, Green or Silver or if its Windows classical Style.

Thanks in Advance,

MyVar.

[mxnmx]

Get ACTIVE SKIN or WindowBlinds

[BuggyProgrammer]

Originally posted by mxnmx
Get ACTIVE SKIN or WindowBlinds

i think he just wants the name.

try the GetCurrentThemeName api call.

[mxnmx]

Sorry....To err is human...

[Myvar]

Hello!

Yes, I only need to know if there is a Theme loaded. No need to change System Settings.
My API Viewer does not show me a Function with the specified Name.
I havent found the Deklaration for : GetCurrentThemeName.

What I have found about:

http://msdn.microsoft.com/library/de...tthemename.asp

But how call this Function in Visual Basic?

Any notions?

Thanks in Advance,

MyVar.

[Joacim Andersson]

This is a VB translation of the function declaration. All strings passed must first be set to a specific size. You could for example use the Space function to make the strings hold a number of spaces (260 would probably be fine). This size must then be passed in the different size arguments. When the function returns simply strip of the NULL character at the end of each string.

Private Declare Function GetCurrentThemeName _
 Lib "UxTheme.dll" ( _
 ByVal pszThemeFileName As String, _
 ByVal dwMaxNameChars As Integer, _
 ByVal pszColorBuff As String, _
 ByVal cchMaxColorChars As Integer, _
 ByVal pszSizeBuff As String, _
 ByVal cchMaxSizeChars As Integer) As Long

I haven't tested this since I'm currently not on a XP box.

Cheers,