by Thomas Yates (1 Submission)
Category: Miscellaneous
Compatability: VB Script
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(4 Votes)
*MINOR FIX* NOW YOU CAN DETECT Whether Windows XP is running in classic style or without visual styles. The function called can also be used to tell theme color if themes are on. If themes are not on then the function will fail and this code will trap the error and return False. REQUIRES "themeui.dll" Should be on Windows XP versions because this is the theme system. THIS FILE IS NOT THE ONE USED FOR DRAWING THEMES. Please let me know of any problems. I reply to all emails. Also check out my other cool submissions. THIS IS DONE IN ONLY 14 LINES OF REAL CODE NOT COMMENTS
Inputs
No Inputs
Assumes
Look under X:/Windows/System32/ for the Themeui.dll file where X = Windows System Drive
Code Returns
Boolean
Side Effects
May not work in systems that are not XP. Please let me know!
API DeclarationsNone. Uses the dll for calls
VBcodersDim TheCurrentTheme As New Theme.Theme
Dim Manager As New ThemeManager
Public Function ClassicThemeOn() as Boolean
Dim Testit ' Used to catch if windows is in classic mode
Set TheCurrentTheme = Manager.SelectedTheme
'Test to see if windows is in classic style
On Error Resume Next
Testit = TheCurrentTheme.VisualStyleColor
If Err.Number = -2147024894 Then
'Error number is the number caused
'when themed.VisualStyleColor Fails
'when in clasic mode
ClassicThemeOn = True
Else
ClassicThemeOn = False
End If
On Error GoTo 0
End Function
