<p>可能需要beta版支持</p><p>#i nclude <GuiConstants.au3><br />Opt("TrayMenuMode",1) <br />$showgui = TrayCreateItem("显示窗口")<br />$trayexit = TrayCreateItem("")<br />$trayexit = TrayCreateItem("退出程序")</p><p>TraySetState()</p><p>$megui = GuiCreate("MyGUI", 392, 316,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))<br />$BMin = GuiCtrlCreateButton("窗体最小化", 40, 40, 170, 100)<br />$BTray = GuiCtrlCreateButton("最小到托盘区", 160, 180, 200, 100)<br />GuiSetState()<br />While 1<br /> $msg = GuiGetMsg()<br /> $trymsg = Traygetmsg()<br /> Select<br /> Case $msg = $GUI_EVENT_CLOSE<br /> ExitLoop<br /> Case $msg = $BMin<br /> guisetstate(@SW_MINIMIZE,$megui )<br /> Case $msg = $BTray<br /> guisetstate(@SW_MINIMIZE,$megui )<br /> guisetstate(@SW_hide,$megui )<br /> Case $trymsg = $showgui<br /> guisetstate(@SW_SHOW ,$megui)<br /> guisetstate(@SW_RESTORE,$megui )<br /> Case $trymsg = $trayexit<br /> Exit<br /> EndSelect<br />WEnd<br />Exit </p> |