화면 중앙에 단일 창 배치 후 선행 창 모두 종료

SysGet, 화면, MonitorWorkArea ;SysGet 두 번째 인자를 Monitor로 하면 화면 전체 좌표를 구한다

실행할프로그램 = notepad.exe
Run, % 실행할프로그램, , , 활성창PID
WinWaitActive, ahk_pid %활성창PID%
WinGet, 활성창HWAN, ID, ahk_pid %활성창PID%
WinMove, ahk_id %활성창HWAN%, , , , % 화면Right / 2, % 화면Bottom / 2
WinGetPos, , , 창가로, 창세로, ahk_id %활성창HWAN%
WinMove, ahk_id %활성창HWAN%, , % (화면Right / 2) - (창가로 / 2), % (화면Bottom / 2) - ( 창세로 / 2)

WinGet, 활성창EXE, ProcessName, ahk_id %활성창HWAN% ;notepad.exe Get
WinGet, 선행창HWAN, List, ahk_exe %활성창EXE% ; 같은 프로세스인 EXE를 리스트화 한 후 각각의 HWAN 얻기
Loop, %선행창HWAN%
{
id := 선행창HWAN%A_Index%

If (활성창HWAN = id) ; 같은 ID 이면 건너뛰기
{
Continue
}
else ; 다른 프로세스면 닫기
{
WinClose, ahk_id %id%
}
}