AutoHotkey Community

WinArrange( TC=1, aStr="", VH=0x1, Rect="", hWnd=0x0 )  {
 CreateArray( aRect, Rect )                  ; Create a RECT structure.   
 IfEqual,   Rect,, SetEnv, lpRect, 0         ; determining whether lpRect is NULL 
 IfNotEqual,Rect,, SetEnv, lpRect, % &aRect  ; or a pointer to the RECT Structure.
 cKids := CreateArray( aKids, aStr )         ; Create an Array of window handles.
 IfEqual,   aStr,, SetEnv, lpKids, 0         ; determining whether lpKids is NULL
 IfNotEqual,aStr,, SetEnv, lpKids, % &aKids  ; or a pointer to the array of handles.
If ( TC= 1 ) {                               ; then the windows have to be Tiled
 Return DllCall("TileWindows",Int,hWnd,UInt,VH,UInt,lpRect,Int,cKids,Int,lpKids)
} Else {                                     ; the windows have to be Cascaded
 IfNotEqual, VH, 4,  SetEnv,VH,0 ; If VH is 4, windows will be cascaded in ZORDER
 Return DllCall("CascadeWindows",Int,hWnd,UInt,VH,UInt,lpRect,Int,cKids,Int,lpKids)
}  }

CreateArray( ByRef Arr, aStr="", Size=4 ) { ; complicated variant of InsertInteger()
 IfEqual, aStr,,  Return 0 ; aStr will be a pipe delimited string of integer values.
 StringReplace, aStr, aStr, |, |, All UseErrorlevel ; Calculating the no. of pipes.
 aFields := errorLevel + 1 ; errorlevel is no. of pipes, +1 results in no of fields.
 VarSetCapacity( Arr, ( aFields*Size ), 0 ) ; Initialise var length and zero fill it.
 Loop, Parse, aStr, |
   {
     Loop %Size% 
        DllCall( "RtlFillMemory", UInt, &Arr+(0 pOffset)+A_Index-1 ; Thanks to Laszlo
        , UInt,1, UChar, A_LoopField >> 8*(A_Index-1) & 0xFF )
     pOffset += %Size%
   } Return aFields
}

#Persistent
OnExit, ExitRoutine

TILE         := 1                    ; for Param 1
CASCADE      := 2                    ; for Param 1
VERTICAL     := 0                    ; for Param 3
HORIZONTAL   := 1                    ; for Param 3
ZORDER       := 4                    ; for Param 3
CLIENTAREA   := "200|25|1000|700"    ; for Param 4

; ALLWINDOWS (Param 2), ARRAYORDER (Param 3), FULLSCREEN (Param 4)
; are undeclared variables simulating NULL content.

Run C:\,,MAX
Sleep, 500
hWnd1 := WinExist("A")

Run D:\,,MAX
Sleep, 500
hWnd2 := WinExist("A")

ARRAY := hWnd1 "|" hWnd2
WinArrange( TILE, ARRAY, VERTICAL, CLIENTAREA )

Return ; Auto-Execute section ends! ------------------------------------

^#F2::WinArrange( CASCADE, ARRAY, ZORDER, CLIENTAREA )
^#F3::WinArrange( TILE, ARRAY, HORIZONTAL, CLIENTAREA )
^#F4::WinArrange( TILE, ARRAY, HORIZONTAL, FULLSCREEN )
^#F5::WinArrange( TILE, ARRAY, VERTICAL, CLIENTAREA )
^#F6::WinArrange( TILE, ARRAY, VERTICAL, FULLSCREEN )

^#NumpadADD::
Loop, Parse, ARRAY, |
  WinActivate, ahk_id %A_LoopField%
Return

^#NumpadSub::
Loop, Parse, ARRAY, |
  WinMinimize, ahk_id %A_LoopField%
Return

ExitRoutine:
Loop, Parse, ARRAY, |
  WinClose, ahk_id %A_LoopField%
ExitApp
Return

#Include WinArrange.ahk ;  ---------------------------------------------