alwaysVisibleSystemWndArr := ["WorkerW", "StartButton", "Shell_TrayWnd", "Program ManagerProgman"]
MINIMIZED := -1
Sleep 2000
WinGet, List, List
Loop % List
{
	WinGet state, MinMax, % "ahk_id" List%A_Index%
	If ((state <> MINIMIZED) And Not indexOf(alwaysVisibleSystemWndArr, titleClass:=WinGetTitleClass(List%A_Index%)))
	{
		MsgBox % titleClass
		winVisible := true
		Break
	}
}
MsgBox % "На рабочем столе ок" (winVisible ? "на есть." : "он нет.")
Return

WinGetTitleClass(hwnd) {
	WinGetTitle title, % "ahk_id" hwnd
	WinGetClass class, % "ahk_id" hwnd
	Return title class
}

indexOf(Arr, needle, fromIndex:=1) {
	if (fromIndex = 1) {
		for index, value in Arr
			if (value = needle)
				return index
	} else
		loop % Arr.MaxIndex() - fromIndex + 1
			if (needle = Arr[A_Index + fromIndex - 1])
				return A_Index + fromIndex - 1
	return false
}