修改托盘图标的实例

autoit

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

jhkdqaa

顶起 补充：TraySetIcon("图标地址")
改托盘图标、且不支持png。。。支持ico

fzlrfzlr

谢谢分享例子不错~~~~~~~~

botanycc

收藏了，研究

bachelor66

真好玩，AU3真不错啊

316428696

说实话，楼主你的代码有问题 BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS) 这两个变量找不到！

881966

谢谢分享，看着花眼