AutoHotkey Community

; Minimize Window to Tray Menu
; http://www.autohotkey.com
; This script assigns a hotkey of your choice to hide any window so that
; it becomes an entry at the bottom of the script's tray menu.  Hidden
; windows can then be restored individually or all at once by selecting
; the corresponding item on the menu.  If the script exits for any reason,
; all the windows that it hid will be restored automatically.

; CONFIGURATION SECTION: Change the below values as desired.

; This is the maximum number of windows to allow to be hidden:
mwt_MaxWindows = 50

; This is the hotkey used to hide the active window:
mwt_stack = #h
mwt_unStack = #+h

; If you prefer to have the tray menu empty of all the standard items,
; such as Help and Pause, use N.  Otherwise, use Y:
mwt_StandardMenu = N

; These first few performance settings help to keep the action within
; the #HotkeyModifierTimeout period, and thus avoid the need to release
; and press down the hotkey's modifier if you want to hide more than one
; window in a row.  These settings are not needed you choose to have the
; script use the keyboard hook via #InstallKeybdHook or other means:
#HotkeyModifierTimeout 100
SetWinDelay 10
SetKeyDelay 0

; The below are recommended for this script:
SetBatchLines 10ms
#SingleInstance


; ----------------------------------------------------

Hotkey, %mwt_stack%, mwt_Minimize
Hotkey, %mwt_unStack%, mwt_UnMinimize

; If the user terminates the script by any means, unhide all the
; windows first:
OnExit, mwt_RestoreAllThenExit

if mwt_StandardMenu = Y
   Menu, Tray, Add
else
{
   Menu, Tray, NoStandard
   Menu, Tray, Add, E&xit, mwt_RestoreAllThenExit
}
Menu, Tray, Add, &Restore All Hidden Windows, mwt_RestoreAll
Menu, Tray, Add  ; Another separator to make the above more special.

return  ; End of auto-execute section


mwt_Minimize:
if mwt_WindowCount >= %mwt_MaxWindows%
{
   MsgBox No more than %mwt_MaxWindows% may be hidden simultaneously.
   return
}

WinGet, ActiveID, ID, A
WinGetTitle, ActiveTitle, ahk_id %ActiveID%
; Because hiding the window won't deactivate it, activate the window
; beneath this one (if any). I tried other ways, but they wound up
; activating the task bar.  This way sends the active window (which is
; about to be hidden) to the back of the stack, which seems best:
Send, !{esc}
; Don't hide until after the above, since by default hidden windows are
; not detected:
WinHide, ahk_id %ActiveID%

; In addition to the tray menu requiring that each menu item name be
; unique, it must also be unique so that we can reliably look it up in
; the array when the window is later unhidden.  So make it unique if it
; isn't already:
Loop, %mwt_MaxWindows%
{
   if mwt_WindowTitle%a_index% = %ActiveTitle%
   {
      ; Match found, so it's not unique.
      ; First remove the 0x from the hex number to conserve menu space:
      StringTrimLeft, ActiveIDShort, ActiveID, 2
      StringLen, ActiveIDShortLength, ActiveIDShort
      StringLen, ActiveTitleLength, ActiveTitle
      ActiveTitleLength += %ActiveIDShortLength% ; Add up the new length
      ActiveTitleLength++ ; +1 for room for one space between title & ID.
      if ActiveTitleLength > 100
      {
         ; Since max menu name is 100, trim the title down to allow just
         ; enough room for the Window's Short ID at the end of its name:
         TrimCount = %ActiveTitleLength%
         TrimCount -= 100
         StringTrimRight, ActiveTitle, ActiveTitle, %TrimCount%
      }
      ActiveTitle = %ActiveTitle% %ActiveIDShort%  ; Build unique title.
      break
   }
}

; First, ensure that this ID doesn't already exist in the list, which can
; happen if a particular window was externally unhidden (or its app unhid
; it) and now it's about to be re-hidden:
mwt_AlreadyExists = n
Loop, %mwt_MaxWindows%
{
   if mwt_WindowID%a_index% = %ActiveID%
   {
      mwt_AlreadyExists = y
      break
   }
}

; Add the item to the array and to the menu: ; (and to the window order count)
if mwt_AlreadyExists = n
{
   Menu, Tray, add, %ActiveTitle%, RestoreFromTrayMenu
   mwt_WindowCount++
   Loop, %mwt_MaxWindows%  ; Search for a free slot.
   {
      ; It should always find a free slot if things are designed right.
      if mwt_WindowID%a_index% =  ; An empty slot was found.
      {
         mwt_WindowID%a_index% = %ActiveID%
         mwt_WindowTitle%a_index% = %ActiveTitle%
         mwt_WindowNumber%a_index% = %mwt_WindowCount%
         break
      }
   }
}
return

mwt_UnMinimize:
if mwt_WindowCount = 0
{
   ; Nothing to un hide
   return
}
Loop, %mwt_MaxWindows%
{
   if mwt_WindowID%a_index% <> ; A non-empty slot
   {
      if mwt_WindowNumber%a_index% = %mwt_WindowCount%
      {
         ; This window is the one that needs to be removed
         StringTrimRight, IDToRestore, mwt_WindowID%a_index%, 0
         WinShow, ahk_id %IDToRestore%
         WinActivate ahk_id %IDToRestore%  ; Sometimes needed.
         StringTrimRight, winTitle, mwt_WindowTitle%a_index%, 0
         Menu, Tray, delete, %winTitle%
         mwt_WindowID%a_index% =  ; Make it blank to free up a slot.
         mwt_WindowTitle%a_index% =
         mwt_WindowCount--
         break
      }
   }
}
return
         

RestoreFromTrayMenu:
Menu, Tray, delete, %A_ThisMenuItem%
; Find window based on its unique title stored as the menu item name:
Loop, %mwt_MaxWindows%
{
   if mwt_WindowTitle%a_index% = %A_ThisMenuItem%  ; Match found.
   {
      StringTrimRight, IDToRestore, mwt_WindowID%a_index%, 0
      WinShow, ahk_id %IDToRestore%
      WinActivate ahk_id %IDToRestore%  ; Sometimes needed.

      ; Loop through all the windows and decrement what is necessary
      StringTrimRight, winNumber, mwt_WindowNumber%a_index%, 0
      Loop, %mwt_MaxWindows%
      {
         if mwt_WindowNumber%a_index% > %winNumber%
         {
         mwt_WindowNumber%a_index%--
         }
      }

      mwt_WindowID%a_index% =  ; Make it blank to free up a slot.
      mwt_WindowTitle%a_index% =
      mwt_WindowCount--
      break
   }
}
return


mwt_RestoreAllThenExit:
Gosub, mwt_RestoreAll
ExitApp  ; Do a true exit.


mwt_RestoreAll:
Loop, %mwt_MaxWindows%
{
   if mwt_WindowID%a_index% <>
   {
      StringTrimRight, IDToRestore, mwt_WindowID%a_index%, 0
      WinShow, ahk_id %IDToRestore%
      WinActivate ahk_id %IDToRestore%  ; Sometimes needed.
      ; Do it this way vs. DeleteAll so that the sep. line and first
      ; item are retained:
      StringTrimRight, MenuToRemove, mwt_WindowTitle%a_index%, 0
      Menu, Tray, delete, %MenuToRemove%
      mwt_WindowID%a_index% =  ; Make it blank to free up a slot.
      mwt_WindowTitle%a_index% =
      mwt_WindowCount--
   }
   if mwt_WindowCount = 0
      break
}
return

; Set the "last found window" to simplify and help performance.
; If a window is not found in 2 seconds WinWait will timeout.
; Without the timout: activating the hotkey after there are no more windows to
; hide results in the first window to be unminimized being automaticaly reminimized.
WinWait, A, , 2

WinGet, mwt_ActiveID, ID
WinGetTitle, mwt_ActiveTitle
WinGetClass, mwt_ActiveClass
if mwt_ActiveClass in Shell_TrayWnd,Progman

; Since in certain cases it is possible for there to be no active window,
; a timeout has been added:
WinWait, A,, 2
if ErrorLevel <> 0  ; It timed out, so do nothing.
   return

; Minimize Window to Tray Menu
; http://www.autohotkey.com
; This script assigns a hotkey of your choice to hide any window so that
; it becomes an entry at the bottom of the script's tray menu.  Hidden
; windows can then be restored individually or all at once by selecting
; the corresponding item on the menu.  If the script exits for any reason,
; all the windows that it hid will be restored automatically.

; CONFIGURATION SECTION: Change the below values as desired.

; This is the maximum number of windows to allow to be hidden:
mwt_MaxWindows = 50

; This is the hotkey used to hide the active window:
mwt_stack = #h
mwt_unStack = #+h

; If you prefer to have the tray menu empty of all the standard items,
; such as Help and Pause, use N.  Otherwise, use Y:
mwt_StandardMenu = N

; Set custom icons here:
mwt_icon = Hide.ico
mwt_icon_alt= Hidden.ico  ;This icon will show when something is hidden

; These first few performance settings help to keep the action within
; the #HotkeyModifierTimeout period, and thus avoid the need to release
; and press down the hotkey's modifier if you want to hide more than one
; window in a row.  These settings are not needed you choose to have the
; script use the keyboard hook via #InstallKeybdHook or other means:
#HotkeyModifierTimeout 100
SetWinDelay 10
SetKeyDelay 0

; The below are recommended for this script:
SetBatchLines 10ms
#SingleInstance


; ----------------------------------------------------

Hotkey, %mwt_stack%, mwt_Minimize
Hotkey, %mwt_unStack%, mwt_UnMinimize

; If the user terminates the script by any means, unhide all the
; windows first:
OnExit, mwt_RestoreAllThenExit

if mwt_StandardMenu = Y
{
   Menu, Tray, Add
   Menu, Tray, Icon, %mwt_icon%
   Menu, Tray, Click, 1
}
else
{
   Menu, Tray, NoStandard
   Menu, Tray, Add, E&xit, mwt_RestoreAllThenExit
   Menu, Tray, Icon, %mwt_icon%
   Menu, Tray, Click, 1
   Menu, Tray, Tip, Minimise Windows to Tray
}
Menu, Tray, Add, &Restore All Hidden Windows, mwt_RestoreAll
Menu, Tray, Add, Minimize Current Window, mwt_Minimize_Menu
Menu, Tray, Add  ; Another separator to make the above more special.
Menu, Tray, default, Minimize Current Window

return  ; End of auto-execute section


mwt_Minimize:
if mwt_WindowCount >= %mwt_MaxWindows%
{
   MsgBox No more than %mwt_MaxWindows% may be hidden simultaneously.
   return
}

If FrmMenu=1
   Send, !{esc}
WinGet, ActiveID, ID, A
WinGetTitle, ActiveTitle, ahk_id %ActiveID%
; Because hiding the window won't deactivate it, activate the window
; beneath this one (if any). I tried other ways, but they wound up
; activating the task bar.  This way sends the active window (which is
; about to be hidden) to the back of the stack, which seems best:
Send, !{esc}
; Don't hide until after the above, since by default hidden windows are
; not detected:
WinHide, ahk_id %ActiveID%

; In addition to the tray menu requiring that each menu item name be
; unique, it must also be unique so that we can reliably look it up in
; the array when the window is later unhidden.  So make it unique if it
; isn't already:
Loop, %mwt_MaxWindows%
{
   if mwt_WindowTitle%a_index% = %ActiveTitle%
   {
      ; Match found, so it's not unique.
      ; First remove the 0x from the hex number to conserve menu space:
      StringTrimLeft, ActiveIDShort, ActiveID, 2
      StringLen, ActiveIDShortLength, ActiveIDShort
      StringLen, ActiveTitleLength, ActiveTitle
      ActiveTitleLength += %ActiveIDShortLength% ; Add up the new length
      ActiveTitleLength++ ; +1 for room for one space between title & ID.
      if ActiveTitleLength > 100
      {
         ; Since max menu name is 100, trim the title down to allow just
         ; enough room for the Window's Short ID at the end of its name:
         TrimCount = %ActiveTitleLength%
         TrimCount -= 100
         StringTrimRight, ActiveTitle, ActiveTitle, %TrimCount%
      }
      ActiveTitle = %ActiveTitle% %ActiveIDShort%  ; Build unique title.
      break
   }
}

; First, ensure that this ID doesn't already exist in the list, which can
; happen if a particular window was externally unhidden (or its app unhid
; it) and now it's about to be re-hidden:
mwt_AlreadyExists = n
Loop, %mwt_MaxWindows%
{
   if mwt_WindowID%a_index% = %ActiveID%
   {
      mwt_AlreadyExists = y
      break
   }
}

; Add the item to the array and to the menu: ; (and to the window order count)
if mwt_AlreadyExists = n
{
   Menu, Tray, add, %ActiveTitle%, RestoreFromTrayMenu
   Menu, Tray, default, %ActiveTitle%
   Menu, Tray, Icon, %mwt_icon_alt%   
   mwt_WindowCount++
   Loop, %mwt_MaxWindows%  ; Search for a free slot.
   {
      ; It should always find a free slot if things are designed right.
      if mwt_WindowID%a_index% =  ; An empty slot was found.
      {
         mwt_WindowID%a_index% = %ActiveID%
         mwt_WindowTitle%a_index% = %ActiveTitle%
         mwt_WindowNumber%a_index% = %mwt_WindowCount%
         break
      }
   }
}
return

;This section provides a variable to determine whether the
;minimise command came from a the tray menu or not. If so
;it requires a 'Send to back' command on the top-most window,
;or else the taskbar will be minimised instead.
mwt_Minimize_Menu:
FrmMenu=1
Gosub, mwt_Minimize
FrmMenu=0
return

mwt_UnMinimize:
if mwt_WindowCount = 0
{
   ; Nothing to un hide
   return
}
Loop, %mwt_MaxWindows%
{
   if mwt_WindowID%a_index% <> ; A non-empty slot
   {
      if mwt_WindowNumber%a_index% = %mwt_WindowCount%
      {
         ; This window is the one that needs to be removed
         StringTrimRight, IDToRestore, mwt_WindowID%a_index%, 0
         WinShow, ahk_id %IDToRestore%
         WinActivate ahk_id %IDToRestore%  ; Sometimes needed.
         StringTrimRight, winTitle, mwt_WindowTitle%a_index%, 0
         Menu, Tray, delete, %winTitle%
         mwt_WindowID%a_index% =  ; Make it blank to free up a slot.
         mwt_WindowTitle%a_index% =
         mwt_WindowCount--
    if mwt_WindowCount = 0
         break
      }
   }
}
If mwt_WindowCount = 0
{
Menu, Tray, default, Minimize Current Window
Menu, Tray, Icon, %mwt_icon%
}
return
         

RestoreFromTrayMenu:
Menu, Tray, delete, %A_ThisMenuItem%
; Find window based on its unique title stored as the menu item name:
Loop, %mwt_MaxWindows%
{
   if mwt_WindowTitle%a_index% = %A_ThisMenuItem%  ; Match found.
   {
      StringTrimRight, IDToRestore, mwt_WindowID%a_index%, 0
      WinShow, ahk_id %IDToRestore%
      WinActivate ahk_id %IDToRestore%  ; Sometimes needed.

      ; Loop through all the windows and decrement what is necessary
      StringTrimRight, winNumber, mwt_WindowNumber%a_index%, 0
      Loop, %mwt_MaxWindows%
      {
         if mwt_WindowNumber%a_index% > %winNumber%
         {
         mwt_WindowNumber%a_index%--
         }
      }

      mwt_WindowID%a_index% =  ; Make it blank to free up a slot.
      mwt_WindowTitle%a_index% =
      mwt_WindowCount--
      break
   }
}
If mwt_WindowCount = 0
{
Menu, Tray, default, Minimize Current Window
Menu, Tray, Icon, %mwt_icon%
}
return


mwt_RestoreAllThenExit:
Gosub, mwt_RestoreAll
ExitApp  ; Do a true exit.


mwt_RestoreAll:
Loop, %mwt_MaxWindows%
{
   if mwt_WindowID%a_index% <>
   {
      StringTrimRight, IDToRestore, mwt_WindowID%a_index%, 0
      WinShow, ahk_id %IDToRestore%
      WinActivate ahk_id %IDToRestore%  ; Sometimes needed.
      ; Do it this way vs. DeleteAll so that the sep. line and first
      ; item are retained:
      StringTrimRight, MenuToRemove, mwt_WindowTitle%a_index%, 0
      Menu, Tray, delete, %MenuToRemove%
      mwt_WindowID%a_index% =  ; Make it blank to free up a slot.
      mwt_WindowTitle%a_index% =
      mwt_WindowCount--
   }
   if mwt_WindowCount = 0
      break
}
return

#Persistent
SetTimer, WatchForWindowsToHide, 500
Menu, tray, add  ; separator line
Menu, tray, add, Show one CSLH window, ShowCSLH
return

WatchForWindowsToHide:
WinGet, WinList, List, CSLH - Microsoft Internet Explorer  ; Update this title as needed.
Loop, %WinList%
{
    StringTrimRight, this_id, WinList%a_index%, 0
    WinGet, MinMax, MinMax, ahk_id %this_id%
    if MinMax = -1  ; The window is minimized.
        WinHide, ahk_id %this_id%  ; Hide it.
}
return

ShowCSLH:
DetectHiddenWindows on
WinActivateBottom, CSLH - Microsoft Internet Explorer
WinShow, A
return

^h::  ; Ctrl+H hotkey
IfWinExist, Live Help admin - Microsoft Internet Explorer
    WinHide
else
    WinShow Live Help admin - Microsoft Internet Explorer
return

Menu, Tray, NoStandard
Menu, Tray, Add, &Hide or Restore, MenuHideRestore
Menu, Tray, Add, E&xit, MenuExit
Menu, Tray, Default, &Hide or Restore  ; i.e. click the icon to active it.
Menu, Tray, Click, 1  ; Single-click activates tray icon rather than double.
; ... any other things that go in auto-execute section ...
return

^h::
MenuHideRestore:  ; i.e. both the menu and the hotkey will do the below.
IfWinExist, Live Help admin - Microsoft Internet Explorer
    WinHide
else
    WinShow Live Help admin - Microsoft Internet Explorer
return

MenuExit:
DetectHiddenWindows on
WinClose, Live Help admin - Microsoft Internet Explorer
ExitApp