易语言类组件,拖放对象W

易语言 2020-08-11 18:50:20

易语言类组件,拖放对象W

窗口_置控件内容W (编辑框1.取窗口句柄 (), 指针到字节集_ (文件路径), 真, 真)

.如果真 (m_拖放对象回调地址 = 0)
m_窗口句柄 = 窗口句柄
m_挂接指针 = 到整数 (挂接拖放事件)
m_拖放对象回调地址 = 类_取内部方法地址 (5) ' 这句.因为它在第5位,所以5
DragAcceptFiles (m_窗口句柄, 真)
ChangeWindowMessageFilter (563, 1) ' 有UAC权限的程序会默认隔离563消息,所以要还原
ChangeWindowMessageFilter (74, 1)
ChangeWindowMessageFilter (73, 1)
m_返回指针 = SetWindowLongA (m_窗口句柄, -4, m_拖放对象回调地址)