#NoTrayIcon
#include <Constants.au3>
#include <GuiConstantsEx.au3>
Opt('TrayMenuMode', 3)
$nExitItem = TrayCreateItem('Выход')
TrayCreateItem('')
$nShowHideItem = TrayCreateItem('Скрыть окно')
$nNextItem = TrayCreateItem('NextItem')
$hGui = GUICreate('Test', 300, 300)
$nButton = GUICtrlCreateButton('Button', 100, 100, 100, 100)
_ShowHide()
TraySetState()
TraySetClick(16)
While 1
Switch TrayGetMsg()
Case $nExitItem
_Exit()
Case $nShowHideItem
_ShowHide()
Case $nNextItem
TrayTip('Test', 'NextItem', 2, 1)
Case $TRAY_EVENT_PRIMARYDOUBLE
_ShowHide()
EndSwitch
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
_Exit()
Case $nButton
MsgBox(64, 'Info', 'Button', 0, $hGui)
EndSwitch
WEnd
Func _Exit()
Exit
EndFunc ;==>_Exit
Func _ShowHide()
If BitAND(WinGetState($hGui), 2) Then
GUISetState(@SW_HIDE, $hGui)
TraySetToolTip('Двойной клик - показать окно')
TrayItemSetText($nShowHideItem, 'Показать окно')
Else
GUISetState(@SW_SHOW, $hGui)
TraySetToolTip('Двойной клик - скрыть окно')
TrayItemSetText($nShowHideItem, 'Скрыть окно')
EndIf
EndFunc ;==>_ShowHide