Menu菜单多层处理

; 可通过win32api获取
BoundGivePar := Func("GivePar").Bind("First", "Test one")
BoundGivePar2 := Func("GivePar").Bind("Second", "Test two")
BoundGivePar3 := Func("GivePar").Bind("Third", "Test three")

; 创建菜单并显示:
Menu MyMenu, Add, Give parameters, % BoundGivePar
Menu MyMenu, Add, Give parameters2, % BoundGivePar2
Menu, SubMenu, Add, Give parameters3, % BoundGivePar3
Menu, MyMenu, Add, SubMenu, :SubMenu
Menu MyMenu, Show

; 定义自定义函数 GivePar:
GivePar(a, b, ItemName, ItemPos, MenuName) {
  MsgBox % "a:`t`t" a "`n"
  . "b:`t`t" b "`n"
  . "ItemName:`t" ItemName "`n"
  . "ItemPos:`t`t" ItemPos "`n"
  . "MenuName:`t" MenuName "`n"
  . "ItemId:`t`t" DllCall("GetMenuItemID", "ptr", hMenu := MenuGetHandle(MenuName), "int", ItemPos - 1) "`n"
  . "MenuHandle:`t" hMenu
}