易语言文件拖进拖出列表源码

系统结构:处理消息,子程序_处理事件,子程序_枚举标题,处理,UnhookWindowsHookEx,SetWindowsHookEx,GetModuleHandle,CallNextHookEx,CopyMemoryR,枚举子窗口_,取父窗口_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 处理消息
           |  |
           |  |------ 子程序_处理事件
           |  |
           |  |------ 子程序_枚举标题
           |  |
           |  |------ 处理
           |  |
           |  |------ _拖放对象1_得到文件
           |  |
           |  |------ _超级列表框1_鼠标左键被按下
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   UnhookWindowsHookEx
           |  |
           |  |---[dll]------   SetWindowsHookEx
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   CallNextHookEx
           |  |
           |  |---[dll]------   CopyMemoryR
           |  |
           |  |---[dll]------   枚举子窗口_
           |  |
           |  |---[dll]------   取父窗口_

调用的DLL命令:

.DLL命令 UnhookWindowsHookEx, 整数型, "user32", "UnhookWindowsHookEx"
    .参数 hHook, 整数型

.DLL命令 SetWindowsHookEx, 整数型, "user32", "SetWindowsHookExA"
    .参数 idHook, 整数型
    .参数 lpfn, 子程序指针
    .参数 hmod, 整数型
    .参数 dwThreadId, 整数型

.DLL命令 GetModuleHandle, 整数型, , "GetModuleHandleA"
    .参数 lpModuleName, 整数型

.DLL命令 CallNextHookEx, 整数型, "user32", "CallNextHookEx"
    .参数 hHook, 整数型
    .参数 ncode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 CopyMemoryR, , "kernel32", "RtlMoveMemory"
    .参数 Dest, MSG
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 枚举子窗口_, 整数型, "user32.dll", "EnumChildWindows"
    .参数 父窗口句柄, 整数型
    .参数 函数指针, 子程序指针
    .参数 自定义值, 整数型

.DLL命令 取父窗口_, 整数型, "user32", "GetParent"
    .参数 窗口句柄, 整数型