写了个例子,供LZ参考下~
#NoTrayIcon
Opt('GUIOnEventMode', 1)
Opt('TrayOnEventMode', 1)
Opt('TrayMenuMode', 1)
$Gui = GUICreate('最小化到托盘图标例子-afan', 380, 270)
GUISetOnEvent(-3, '_exit')
GUISetOnEvent(-4, 'Min') ;$GUI_EVENT_MINIMIZE=-4
TraySetOnEvent(-7, 'PrimaryDown') ;$TRAY_EVENT_PRIMARYDOUBLE=-13双击;$TRAY_EVENT_PRIMARYDOWN -7 左键按下.
GUISetState()
While 1
Sleep(1000)
WEnd
Func _exit()
Exit
EndFunc ;==>_exit
Func Min()
TraySetState(1)
GUISetState(@SW_HIDE, $Gui)
TrayTip('提示:', '窗口已最小化,单击图标恢复', 10)
EndFunc ;==>min
Func PrimaryDown()
GUISetState(@SW_SHOW, $Gui)
TraySetState(2)
EndFunc ;==>PrimaryDown
|