AutoHotkey Community

F1::
WinGetActiveTitle, current
WinMinimizeAll
WinActivate, %current%

F1::    ; hotkey is F1

WinGetActiveTitle, OutputVar

;modified from Winget Example #2: This will visit all windows on the entire system and display info about each of them:

WinGet, id, list,,, Program Manager
Loop, %id%
{
    this_id := id%A_Index%
    WinGetTitle, this_title, ahk_id %this_id%

    if (OutputVar = this_title)
    {
;   msgbox Active Window is %this_title%
    }
    else
    {
   winminimize %this_title%
    }
}

; pseudocode for minorbutactivewindow script, accessible from an eg. Samurize config
Persistent

Run MinAllButActive

Function MinAllButActive
Activate TopMostWindow   ; Assume top-most window as last active window

Count UnMinimisedWindows
If UnMinimisedWindows > 1
   Enumerate ListOfUnMinimisedWindows
   Loop ListOfUnMinimisedWindows
      If Window on ListOfUnMinimisedWindows != ActiveWindow
         Minimise
         ListOfWindowsToRestore = ListOfUnMinimisedWindows
      End If
   Next
   Exit Function   ; Exit funtion once it exits from the loop
ElseIf UnMinimisedWindows = 1   ; Function used before, restore windows from saved list
   If ListOfWindowsToRestore > 0   ; Check if there's a list of windows to be restored
      Loop ListOfWindowsToRestore
         Restore
      Next
   Elseif ListOfWindowsToRestore = 0   ; No windows to restore
      Exit Function
   End if
   ListOfWindowsToRestore = 0
   Exit Function
ElseIf UnMinimisedWindows < 1       ; No windows
   ListOfWindowsToRestore = 0   ; User may have minimised or restored windows on his/her own, reset the script
   Exit Function
End If