Testing Windows start menu

Hi John,



Here's a couple of ideas:

count the number of shortcuts on the desktop

Try this:

Sys.Process("explorer").Window("Progman").Window("SHELLDLL_DefView").Window("SysListView32").wItemCount

check the number of application items in the start menu

Start Menu shortcuts are stored in these folders on the disk:

Common to all users: %ALLUSERSPROFILE%\Start Menu\Programs

User-specific: %USERPROFILE%\Start Menu\Programs



You could simply count the shortcut files in the needed subfolder. Something like this (off top of my head):

 function Test()

 {

   Log.Message(GetStartMenuItemCount("SmartBear\\TestComplete 10"));

 }

 

 // Returns the number of shortcuts in the specified Start Menu folder.

 // Path - String. The folder path in the Start Menu, separated by backslashes.

 // For example, "SmartBear\\TestComplete 10".

 function GetStartMenuItemCount(Path)

 {

   var oShell = Sys.OleObject("Wscript.Shell");

   var strStartMenuCommon = oShell.SpecialFolders("AllUsersPrograms"); // common Start Menu

   var strStartMenuUser = oShell.SpecialFolders("Programs"); // user-specific Start Menu

 

   var strPath1 = aqFileSystem.IncludeTrailingBackSlash(strStartMenuCommon) + Path;

   var strPath2 = aqFileSystem.IncludeTrailingBackSlash(strStartMenuUser) + Path;

 

   var count = 0;

 

   if (aqFileSystem.Exists(strPath1))

   {

     count += aqFileSystem.GetFolderInfo(strPath1).Files.Count;

   }

 

   if (aqFileSystem.Exists(strPath2))

   {

     count += aqFileSystem.GetFolderInfo(strPath2).Files.Count;

   }

 

   return count;

 }