窗口卷起

#SingleInstance,off

SplitPath, A_AhkPath, ,Dir,
Menu Tray, Icon, %Dir%ScriptsResource窗口卷起.ico,,1

Menu, Tray, Click, 1
Menu, Tray, Tip, 窗口卷起
Menu, Tray, Add, 窗口卷起, Tray_Show
Menu, Tray, ToggleEnable, 窗口卷起
Menu, Tray, Default, 窗口卷起
Menu, Tray, Add
Menu, Tray, Add, 帮助(&H), Tray_Help
Menu, Tray, Add
Menu, Tray, Add, 暂停(&P), Tray_Pause
Menu, Tray, Add, 重启(&R), Tray_Reload
Menu, Tray, Add, 退出(&X), ExitSub
Menu, Tray, NoStandard

ws_MinHeight = 25
OnExit, ExitSub
Return

Tray_Show:
Menu, Tray, Show
Return
Tray_Reload:
Reload
Return
Tray_Pause:
Suspend, Toggle
Menu, Tray, ToggleCheck, 暂停(&P)
Return
Tray_Help:
Msgbox, 0, Help, Win+Z 卷起窗口
Return

$#z::
WinGet, ws_ID, ID, A
Loop, Parse, ws_IDList, |
{
    IfEqual, A_LoopField, %ws_ID%
    {
        StringTrimRight, ws_Height, ws_Window%ws_ID%, 0
        WinMove, ahk_id %ws_ID%,,,,, %ws_Height%
        StringReplace, ws_IDList, ws_IDList, |%ws_ID%
        Return
    }
}
WinGetPos,,,, ws_Height, A
ws_Window%ws_ID% = %ws_Height%
WinMove, ahk_id %ws_ID%,,,,, %ws_MinHeight%
ws_IDList = %ws_IDList%|%ws_ID%
Return

ExitSub:
Loop, Parse, ws_IDList, |
{
    If A_LoopField =
        continue
    StringTrimRight, ws_Height, ws_Window%A_LoopField%, 0
    WinMove, ahk_id %A_LoopField%,,,,, %ws_Height%
}
ExitApp