#region: - Option Opt('GUIOnEventMode', 1) Opt('MustDeclareVars', 1) Opt('TrayIconDebug', 1) Opt('TrayIconHide', 0) #endregion #region: - Include #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #endregion HotKeySet('{ESC}', '_Pro_Exit') #region: - Main Win Global, Functions Global $hMainWin, $hMainWinWinActive Func _MainWin_Create() $hMainWin = GUICreate('Sample', 330, 185, -1, -1) GUISetOnEvent($GUI_EVENT_CLOSE, '_Pro_Exit') ; Exit GUICtrlCreateButton('Exit', 330-100-10, 130+10+10, 100, 23) GUICtrlSetOnEvent(-1, '_Pro_Exit') GUISetState(@SW_SHOW, $hMainWin) EndFunc #endregion #region: - After creating all GUI GUIRegisterMsg($WM_ACTIVATE, 'WM_ACTIVATE') _MainWin_Create() #endregion #region: - Sleep, Exit While 1 Sleep(10) WEnd Func _Pro_Exit() Exit EndFunc #endregion Func WM_ACTIVATE($hWnd, $Msg, $wParam, $lParam) Local $hMainWinWinActive = Int(Hex($wParam)) If $hMainWinWinActive == 2 Then $hMainWinWinActive = 1 If $hMainWinWinActive > 2 Then $hMainWinWinActive = 0 ToolTip('Активность: ' & $hMainWinWinActive, 10, 70, 'Главное окно') EndFunc |