易语言超级列表框往外拖放模块源码

系统结构:往外拖放支持,往外拖放支持结束,NewProc,释放鼠标_,SetWindowLongA,CallWindowProcA,俘获鼠标_,解释消息_,分派消息_,检查消息队列_,获取消息_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 往外拖放支持
           |  |
           |  |------ 往外拖放支持结束
           |  |
           |  |------ NewProc
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   释放鼠标_
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   俘获鼠标_
           |  |
           |  |---[dll]------   解释消息_
           |  |
           |  |---[dll]------   分派消息_
           |  |
           |  |---[dll]------   检查消息队列_
           |  |
           |  |---[dll]------   获取消息_

调用的DLL命令:

.DLL命令 释放鼠标_, 整数型, "user32", "ReleaseCapture"

.DLL命令 SetWindowLongA, 整数型, "user32.dll", "SetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 CallWindowProcA, 整数型, "user32.dll", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 俘获鼠标_, 整数型, "user32", "SetCapture"
    .参数 窗口句柄, 整数型

.DLL命令 解释消息_, 整数型, "user32.dll", "TranslateMessage"
    .参数 消息结构, 消息_, , lpMsg

.DLL命令 分派消息_, , "user32.dll", "DispatchMessageA"
    .参数 消息结构, 消息_, , lpMsg

.DLL命令 检查消息队列_, 整数型, "user32.dll", "PeekMessageA"
    .参数 消息格式, 消息_, , lpMsg
    .参数 窗口句柄, 整数型, , hWnd
    .参数 消息最小过滤值, 整数型, , wMsgFilterMin
    .参数 消息最大过滤值, 整数型, , wMsgFilterMax
    .参数 删除消息, 整数型, , wRemoveMsg，是否取得消息后，从消息队列中删除该消息

.DLL命令 获取消息_, 整数型, "user32.dll", "GetMessageA", , GetMessage
    .参数 消息值, 消息_, , lpMsg
    .参数 窗口句柄, 整数型, , hwnd
    .参数 过滤消息最小值, 整数型, , wMsgFilterMin
    .参数 过滤消息最大值, 整数型, , wMsgFilterMax