; AltTab-replacement for Windows 8:
F1::
List =
WinGet, AllWinsHwnd, List
Loop, % AllWinsHwnd
{
WinGet, exStyle, exStyle, % "ahk_id" AllWinsHwnd%A_Index%
If !(exStyle & 0x100)
continue
WinGetTitle, CurrentWinTitle, % "ahk_id " AllWinsHwnd%A_Index%
If (CurrentWinTitle = "")
continue
IfWinActive, % "ahk_id " AllWinsHwnd%A_Index%
continue
WinActivate, % "ahk_id " AllWinsHwnd%A_Index%
break
}
return
; AltTabMenu-replacement for Windows 8:
F2::
List =
Menu, windows, Add
Menu, windows, deleteAll
WinGet, AllWinsHwnd, List
Loop, %AllWinsHwnd%
{
WinGet, exStyle, exStyle, % "ahk_id" AllWinsHwnd%A_Index%
If !(exStyle & 0x100)
continue
WinGetTitle, CurrentWinTitle, % "ahk_id " AllWinsHwnd%A_Index%
If (CurrentWinTitle = "")
continue
WinGetClass, CurrentWinClass, % "ahk_id " AllWinsHwnd%A_Index%
Menu, windows, Add, %CurrentWinTitle%, ActivateTitle
WinGet, Path, ProcessPath, % "ahk_id " AllWinsHwnd%A_Index%
If (CurrentWinClass = "ApplicationFrameWindow")
Menu, windows, Icon, %CurrentWinTitle%, %A_WinDir%\System32\SHELL32.dll, 3, 0
else
Menu, windows, Icon, %CurrentWinTitle%, %Path%,, 0
}
CoordMode, Mouse, Screen
MouseMove, (0.4*A_ScreenWidth), (0.35*A_ScreenHeight)
CoordMode, Menu, Screen
Xm := (0.25*A_ScreenWidth)
Ym := (0.25*A_ScreenHeight)
Menu, windows, Show, %Xm%, %Ym%
return
ActivateTitle:
SetTitleMatchMode 3
WinActivate, %A_ThisMenuItem%
return
Questo è esattamente quello che stavo cercando! Funziona alla grande! Grazie! –