the shutdown prompt is no longer showing. Previously it was there.
![Question :?:](./images/smilies/icon_question.gif)
the shutdown prompt is no longer showing. Previously it was there.
Code: Select all
#Esc::
exclude := "Program Manager|Start|Windows Task Manager|MainWindow"
WinGet, WindowList, List
Loop, %WindowList%
{
WinGetTitle title, % winTitle := "ahk_id" WindowList%A_Index%
If !(title ~= "i)^(" exclude ")$") && visible(winTitle)
WinClose, % title
}
ComObjCreate("Shell.Application").ShutdownWindows
return
visible(winTitle) {
WinGetTitle dwTitle , % winTitle
WinGet dwStyle , Style , % winTitle
WinGet dwExStyle , ExStyle, % winTitle
WinGetClass szClass , % winTitle
Return !( dwTitle = ""
|| dwStyle & 0x08000000
|| !(dwStyle & 0x10000000)
|| dwExStyle & 0x00000080
|| szClass = "TApplication" )
}