Определить включено ли приложение на весь экран

WinGetState

WinGetState

; WinSetState("[ACTIVE]", "", @SW_MAXIMIZE)
; Извлекаем состояние активного окна
$iState = WinGetState("[ACTIVE]", "")

If BitAnd($iState, 32) Then
    $sText&='развёрнуто на весь экран'&@LF ; @SW_MAXIMIZE
Else
    $sText&='не развёрнуто на весь экран'&@LF ; @SW_RESTORE
EndIf

MsgBox(4096, "Сообщение", $sText)

$iState = WinGetState("[ACTIVE]", "")
$i = False ; Пауза. По умолчанию "Закрыта"

HotKeySet("{+}", i) ; Клавиша паузы "Открыть"
;HotKeySet("{-}", i2) ; Клавиша паузы "Закрыть"
HotKeySet("{Esc}", _Exit) ; Клавиша выхода

While 1
   If $i = true Then ; Пауза. Дословно: Если пауза "Открыта" продолжить.
   If BitAnd($iState, 32) Then
      MsgBox(0, "Сообщение", "Приложение развернуто на весь экран") ; Вот вместо сообщения текст своего кода.
   Else
      MsgBox(0, "Сообщение", "Приложение не развернуто на весь экран")
   EndIf
   EndIf
WEnd

Func i() ; Функция паузы "Открыть"
   $i = True
EndFunc

; Func i2() Функция паузы "Закрыть". Для использования убрать ";"
;    $i = False
; EndFunc

Func _Exit() ; Функция выхода
   Exit
EndFunc

HotKeySet("{+}", "i") ; Клавиша паузы "Открыть"
;HotKeySet("{-}", i2) ; Клавиша паузы "Закрыть"
HotKeySet("{Esc}", "_Exit") ; Клавиша выхода

Local $hWnd = DllCall('user32.dll', 'hwnd', 'GetForegroundWindow')

Local $hWnd = WinWait()
Local $hWnd = WinWaitActive()
Local $hWnd = WinGetHandle()

#Include <WinAPI.au3>

HotKeySet('{F8}', '_HotKey')

While 1
    Sleep(10)
WEnd

Func _WinFullScreen()
    Local $hWnd = DllCall('user32.dll', 'hwnd', 'GetForegroundWindow')
    If (@error) Or ($hWnd[0] = 0) Then
        Return SetError(1, 0, 0)
    EndIf
    If (StringInStr(WinGetClassList($hWnd[0]), 'SHELLDLL_DefView') = 0) And (BitAND(WinGetState($hWnd[0]), 2) = 2) And (_WinAPI_GetClientWidth($hWnd[0]) = @DesktopWidth) And (_WinAPI_GetClientHeight($hWnd[0]) = @DesktopHeight) Then
        Return 1
    EndIf
    Return 0
EndFunc

Func _HotKey()
	$sWinFullScreen = _WinFullScreen()
	If WinActive('Игра','') Then
		If $sWinFullScreen = 1 Then
			MsgBox(0, "", "Игра запущенна в полноэкранном режиме")
                       Else
                                  MsgBox(0, "", "Игра запущенна не в полноэкранном режиме")      
		EndIf
	EndIf
EndFunc