为窗口组件批量添加拖放事件

在挂接事件里 加了一个参数 ,可以获取到触发事件的句柄 ,通过句柄来查找触发事件的组件。

.子程序 拖放对象_注册, , 公开, 将类命令声明到程序集，局部变量会失败
.参数 窗口句柄, 整数型
.参数 挂接拖放事件, 子程序指针, , 创建一个取回文件名子程序.需要带参数; 参数1:文本型 参数2 事件组件句柄
.局部变量 局_系统, 文本型

集_窗口句柄 ＝ 窗口句柄
集_挂接指针 ＝ 挂接拖放事件

DragAcceptFiles (集_窗口句柄, 1)
集_返回指针 ＝ SetWindowLongA (集_窗口句柄, #GWL_WNDPROC, 类_取内部方法地址 (5))
局_系统 ＝ 系统_取系统版本 (, , , , , )
.如果真 (取文本左边 (局_系统, 10) ≠ “Windows XP”)
ChangeWindowMessageFilter (563, #MSGFLT_ADD)
ChangeWindowMessageFilter (74, #MSGFLT_ADD)
ChangeWindowMessageFilter (73, #MSGFLT_ADD)