易语言超级列表框拖动多选改进源码

系统结构:拖拽集_启用超列拖拽,拖拽集_停用超列拖拽,拖拽集_超列被按下,拖拽集_鼠标钩子处理,API_安装钩子,API_调用下一钩子,API_取模块句柄2,API_卸载钩子,API_取超列信息,API_读鼠标内存,API_转换为用户座标,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _任务框_鼠标左键被按下
           |  |
           |  |
======超列拖拽集
           |  |
           |  |------ 拖拽集_启用超列拖拽
           |  |
           |  |------ 拖拽集_停用超列拖拽
           |  |
           |  |------ 拖拽集_超列被按下
           |  |
           |  |------ 拖拽集_鼠标钩子处理
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_安装钩子
           |  |
           |  |---[dll]------   API_调用下一钩子
           |  |
           |  |---[dll]------   API_取模块句柄2
           |  |
           |  |---[dll]------   API_卸载钩子
           |  |
           |  |---[dll]------   API_取超列信息
           |  |
           |  |---[dll]------   API_读鼠标内存
           |  |
           |  |---[dll]------   API_转换为用户座标

调用的DLL命令:

.DLL命令 API_安装钩子, 整数型, "user32.dll", "SetWindowsHookExA", , 安装一个钩子
    .参数 类型, 整数型
    .参数 处理, 子程序指针
    .参数 句柄, 整数型
    .参数 ID, 整数型

.DLL命令 API_调用下一钩子, 整数型, "user32.dll", "CallNextHookEx", , 返回下一个钩子执行后的返回值; 0 表示失败
    .参数 句柄, 整数型
    .参数 类型, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 API_取模块句柄2, 整数型, "kernel32.dll", "GetModuleHandleA", , 如执行成功成功，则返回模块句柄。零表示失败
    .参数 模块名, 整数型, , 0

.DLL命令 API_卸载钩子, 逻辑型, "user32.dll", "UnhookWindowsHookEx", , 卸载一个钩子
    .参数 句柄, 整数型

.DLL命令 API_取超列信息, 整数型, "user32.dll", "SendMessageA"
    .参数 句柄, 整数型
    .参数 消息, 整数型
    .参数 参数, 整数型
    .参数 结果, 超列信息

.DLL命令 API_读鼠标内存, 整数型, "kernel32.dll", "RtlMoveMemory"
    .参数 地址, 鼠标信息
    .参数 数据, 整数型
    .参数 长度, 整数型

.DLL命令 API_转换为用户座标, 逻辑型, "user32.dll", "ScreenToClient"
    .参数 hwnd, 整数型
    .参数 lpPoint, 坐标, 传址