AHK: одновременно закрыть несколько потоков

#SingleInstance off
global ChildPid
Param = %1%
IsFunc(Param) ? %Param%() : proc1() 
Return


proc1()  {  
    Run, %A_ScriptFullPath% proc2,,, ChildPid
    Hotkey, F2, CloseAll, On
    loop
        ToolTip % A_ThisFunc "`n" A_TickCount "`nProcessId = " DllCall("GetCurrentProcessId"),111,111
}

proc2()  {
    OnMessage(DllCall("RegisterWindowMessage", Str, "CloseScript"), "CloseScript")
    loop
        ToolTip % A_ThisFunc "`n" A_TickCount "`nProcessId = " DllCall("GetCurrentProcessId"),111,222
}

CloseScript()
{
    ExitApp
}

CloseAll:
DetectHiddenWindows, On
PostMessage, DllCall("RegisterWindowMessage", Str, "CloseScript"),,,, ahk_pid %ChildPid%
exitapp

#SingleInstance Off
WM_CloseMyScript := DllCall("RegisterWindowMessage", "Str", "CloseAHKScripts")
OnMessage(WM_CloseMyScript, "WM_CloseMyScript")
OnExit, CloseAll
Param = %1%
If Param =
    PostMessage, WM_CloseMyScript, 0, A_ScriptHWND,, ahk_id 0xFFFF
IsFunc(Param) ? %Param%() : proc1() 
Return
 
proc1()  {  
    Run, %A_ScriptFullPath% proc2  
    loop
        ToolTip % A_ThisFunc "`n" A_TickCount "`nProcessId = " DllCall("GetCurrentProcessId"),111,111
}

proc2()  {
    Run, %A_ScriptFullPath% proc3
    loop
        ToolTip % A_ThisFunc "`n" A_TickCount "`nProcessId = " DllCall("GetCurrentProcessId"),111,222
}

proc3()  { 
    loop
        ToolTip % A_ThisFunc "`n" A_TickCount "`nProcessId = " DllCall("GetCurrentProcessId"),111,333
}  


WM_CloseMyScript(wParam, lParam)   { 
    If (lParam != A_ScriptHWND)  {
        OnExit
        ExitApp
    }
    return true
}

F2::
CloseAll:
    PostMessage, WM_CloseMyScript, 0, A_ScriptHWND,, ahk_id 0xFFFF
    ExitApp