AHK: Оповещение об окончании копирования файлов

#Persistent
#NoEnv
Acc_ObjectFromWindow(hWnd, idObject = 0)
{
    If    DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject&=0xFFFFFFFF, "Ptr", -VarSetCapacity(IID,16)+NumPut(idObject==0xFFFFFFF0?0x46000000000000C0:0x719B3800AA000C81,NumPut(idObject==0xFFFFFFF0?0x0000000000020400:0x11CF3C3D618736E0,IID,"Int64"),"Int64"), "Ptr*", pacc)=0
    Return    ComObjEnwrap(9,pacc,1)
}

Acc_Error(p="") {
    static setting:=0
    return p=""?setting:setting:=p
}
Acc_Children(Acc) {
    if ComObjType(Acc,"Name") != "IAccessible"
        ErrorLevel := "Invalid IAccessible Object"
    else {
         cChildren:=Acc.accChildCount, Children:=[]
        if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0 {
            Loop %cChildren%
                i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren,i), Children.Insert(NumGet(varChildren,i-8)=9?Acc_Query(child):child), NumGet(varChildren,i-8)=9?ObjRelease(child):
            return Children.MaxIndex()?Children:
        } else
            ErrorLevel := "AccessibleChildren DllCall Failed"
    }
    if Acc_Error()
        throw Exception(ErrorLevel,-1)
}

Acc_Query(Acc) { ; thanks Lexikos - www.autohotkey.com/forum/viewtopic.php?t=81731&p=509530#509530
    try return ComObj(9, ComObjQuery(Acc,"{618736e0-3c3d-11cf-810c-00aa00389b71}"), 1)
}

Acc_GetChild(Acc, path="") {
    Loop Parse, path, csv
        Acc := Acc_Children(Acc)[A_LoopField]
    return Acc
}


DllCall("LoadLibrary","Str","oleacc","Ptr")
loop
{
WinWait ahk_class OperationStatusWindow
for i,k in Acc_Children(Acc_GetChild(Acc_ObjectFromWindow(WinExist("ahk_class OperationStatusWindow")),"4,1,4"))
    if (k.AccRole(0) = 20) and (k.AccName(0) ~= " 100%$")
        traytip,инфа, % k.AccName(0)
sleep 100
}

SetTimer, WaitCopying, 100

WaitCopying:
winName:="ahk_class OperationStatusWindow"
while !(WinExist(winName))
	StartTime := A_TickCount
	Sleep, 250
WinWaitClose, %winName%
ElapsedTime := A_TickCount - StartTime
if (ElapsedTime > 60000)
{
	MsgBox, Copying is Finished!
}
return