易语言文件拖拽拖进

.子程序 处理消息, , , 此处借鉴"鼠标键盘记录源码,在此谢过~~~
.参数 icode, 整数型
.参数 wparam, 整数型
.参数 lparam, 整数型
.局部变量 Temp, MSG

.如果真 (icode ＝ 0)
CopyMemoryR (Temp, lparam, 20)
.如果真 (Temp.message ＝ 514) ' 放开左键
.如果真 (取数组成员数 (集_文件数组) ≠ 0)
子程序_处理事件 ()
清除数组 (集_文件数组)
UnhookWindowsHookEx (rHook)
.如果真结束

.如果真结束

.如果真结束
CallNextHookEx (rHook, icode, wparam, lparam)