WSH,VBS,JS: Drag & Drop файлов

DropFiles( FileList, wTitle="", Ctrl="", X=0, Y=0, NCA=0 )
{ 
	offset := 20
	VarSetCapacity(dropFiles, StrPut(fileList) + offset + 2, 0)
    loop parse, fileList, `n, `r
        StrPut(A_LoopField, &dropFiles + offset, StrLen(A_LoopField), "CP0")
        , offset += StrLen(A_LoopField) + 1
	NumPut(0, &DROPFILES + offset, "UInt")   ; завершиться должно 2-мя нулями подряд
	nSize := offset + 4
	pDP:=&DROPFILES
	NumPut(20, pDP+0, "UInt")  ;	Смещение списка файлов с начала этой структуры, в байтах.
	NumPut(X, pDP+4, "UInt")
	NumPut(Y, pDP+8, "UInt")
	NumPut(NCA, pDP+12, "UInt")  ;	Если этот элемент является значение TRUE, то X и Y определяет экранные координаты точки в нерабочей области окна. Если значение FALSE, X и Y определяет клиентские координаты точки в рабочей области.
	NumPut(0, pDP+16, "UInt")  ;	Значение, которое указывает, содержит ли файл ANSI или Unicode символы. Если значение равно нулю, то файл содержит символы ANSI. В противном случае, он содержит Unicode символы.
	hDrop := DllCall( "GlobalAlloc", UInt, 0x42, UInt, nSize, Ptr )
	pData := DllCall( "GlobalLock", Ptr, hDrop, Ptr )
	DllCall( "RtlMoveMemory", Ptr, pData, Ptr, pDP, UInt, nSize )
	DllCall( "GlobalUnlock", Ptr, hDrop )
	PostMessage, 0x233, hDrop, 0, %Ctrl%, %wTitle% ; WM_DROPFILES := 0x233
	DllCall( "DragFinish", Ptr, hDrop)
}