On some of our regression tests, we need to check that all shortcuts that our product created under Windows Start Menu is working. One of the challenge this one presents is that user can set it to either "Classic Start Menu" or the new XP style Start Menu. Since our organization likes to use Visual Tests, I was looking for a way to detect what is the current style of Start Menu, hence the script below was born: 'Refs 'http://www.themssforum.com/VisualBasic/SHGetSetSetting-SHELLFLAGSTATESHELLSTATE/ 'http://msdn.microsoft.com/en-us/library/bb762200(VS.85).aspx 'http://msdn.microsoft.com/en-us/library/bb759788(VS.85).aspx Option Explicit Private Declare Sub SHGetSetSettings Lib "shell32" _ ( ByRef lpSS As Byte , ByVal dwMask As Long , ByVal bSet As Long ) Const SSF_STARTPANELON = &H200000 Public Function IsXpMenuStyleOn () As Long
String of thoughts on science, technology and programming