Greg wrote:
Anybody know if there's a way to tell which theme Windows XP is in?
You can write declares against the uxtheme library to find out all sorts
of great theme information.
I believe this is the one you're interested in using:
Sub GetCurrentThemeName(ByRef themeName as String, ByRef colorName as
String, ByRef sizeName as String)
Soft Declare Sub GetCurrentThemeName Lib "uxtheme" ( name as Ptr,
nameSize as Integer, colorName as Ptr, colorSize as Integer, sizeName as
Ptr, sizeSize as Integer )
if not System.IsFunctionAvailable( "GetCurrentThemeName", "uxtheme" )
then return
dim name as new MemoryBlock( 2048 )
dim colors as new MemoryBlock( 2048 )
dim size as new MemoryBlock( 2048 )
GetCurrentThemeName( name, name.Size, colors, colors.Size, size,
size.Size )
themeName = name.WString( 0 )
colorName = colors.WString( 0 )
sizeName = size.WString( 0 )
End Sub
HTH!
~Aaron
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
|