On Aug 31, 2005, at 1:10 pm, Aaron Ballman wrote:
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
Thanks Aaron... can you think of any reason that GetCurrentThemeName
would return three empty strings? Looks like the code should work
but.....
Greg O'Lone, President
Stretched Out Software Inc
_______________________________________________
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>
|