Windows 7 Start menu: open All Programs

[Gintaras]

Function start_menu_all_programs
Trigger !v"Start menu" "DV2ControlHost"     

Code:

Copy      Help

;When I open Windows 7 Start menu, opens All Programs.
;Probably works on Vista too, but not tested.


if(_winver<0x600) ret ;;run only on Vista and later
int hwnd=val(_command)
Acc a=acc("All programs" "MENUITEM" hwnd "Button" "" 0x1001)
a.DoDefaultAction
act child("" "Search Box" hwnd) ;;focus Search box