易语言离不开拖放模块源码

系统结构:允许拖放,禁止拖放,WindowProc,DropFiles,存在位置,CallWindowProc,CallWindowProc2,DragAcceptFiles,DragQueryFile,DragFinish,SetWindowLong2,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======文件拖放
           |  |
           |  |------ 允许拖放
           |  |
           |  |------ 禁止拖放
           |  |
           |  |------ WindowProc
           |  |
           |  |------ DropFiles
           |  |
           |  |------ 存在位置
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   CallWindowProc2
           |  |
           |  |---[dll]------   DragAcceptFiles
           |  |
           |  |---[dll]------   DragQueryFile
           |  |
           |  |---[dll]------   DragFinish
           |  |
           |  |---[dll]------   SetWindowLong2

调用的DLL命令:

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA"
    .参数 lpPrevWndFunc, 子程序指针
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 CallWindowProc2, 整数型, "user32.dll", "CallWindowProcA"
    .参数 lpPrevWndFunc, 子程序指针
    .参数 总文件数量, 整数型
    .参数 当前是第几个文件, 整数型
    .参数 当前文件名, 文本型
    .参数 当前文件后缀, 文本型

.DLL命令 DragAcceptFiles, 整数型, "shell32.dll", "DragAcceptFiles"
    .参数 hwnd, 整数型
    .参数 fAccept, 整数型

.DLL命令 DragQueryFile, 整数型, "shell32.dll", "DragQueryFileA"
    .参数 hDrop, 整数型
    .参数 iFile, 整数型
    .参数 lpszFile, 文本型
    .参数 cch, 整数型

.DLL命令 DragFinish, 整数型, "shell32.dll", "DragFinish"
    .参数 hDrop, 整数型

.DLL命令 SetWindowLong2, 子程序指针, "user32.dll", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 子程序指针