易语言API拖放功能源码

系统结构:DragFileOpen,WindowProc,DragFileShut,RunFile,EndTask,SetWindowLong,SetWindowLongA,DragAcceptFiles,DragQueryFile,DragFinish,FindWindow,GetParent,lstrcpy,GetDesktopWindow,ShellExecute,GetCurrentProcessId,CallWindowProcA,CallWindowProc,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _Window_Load
           |  |
           |  |------ _ListBox_Click
           |  |
           |  |------ _ListBox_Dbclick
           |  |
           |  |------ _Button_Click
           |  |
           |  |------ _Edit_Change
           |  |
           |  |------ _Window_Unload
           |  |
           |  |------ _GainFiles
           |  |
           |  |
======程序集2
           |  |
           |  |------ __启动子程序
           |  |
           |  |------ DragFileOpen
           |  |
           |  |------ WindowProc
           |  |
           |  |------ DragFileShut
           |  |
           |  |------ RunFile
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   EndTask
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   DragAcceptFiles
           |  |
           |  |---[dll]------   DragQueryFile
           |  |
           |  |---[dll]------   DragFinish
           |  |
           |  |---[dll]------   FindWindow
           |  |
           |  |---[dll]------   GetParent
           |  |
           |  |---[dll]------   lstrcpy
           |  |
           |  |---[dll]------   GetDesktopWindow
           |  |
           |  |---[dll]------   ShellExecute
           |  |
           |  |---[dll]------   GetCurrentProcessId
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   CallWindowProc

调用的DLL命令:

.DLL命令 EndTask, , "user32.dll", "EndTask"
    .参数 hWnd, 整数型
    .参数 fShutDown, 逻辑型, , 请填真
    .参数 fForce, 逻辑型, , 请填真

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

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

.DLL命令 DragAcceptFiles, 整数型, "shell32.dll", "DragAcceptFiles"
    .参数 hWnd, 整数型
    .参数 fAccept, 逻辑型

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

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

.DLL命令 FindWindow, 整数型, "user32.dll", "FindWindowA"
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型

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

.DLL命令 lstrcpy, 整数型, "kernel32.dll", "lstrcpy"
    .参数 lpString1, 子程序指针
    .参数 lpString2, 子程序指针

.DLL命令 GetDesktopWindow, 整数型, "user32.dll", "GetDesktopWindow"

.DLL命令 ShellExecute, , "shell32.dll", "ShellExecuteA"
    .参数 hWnd, 整数型
    .参数 lpOperation, 文本型
    .参数 lpFile, 文本型
    .参数 lpParameters, 文本型
    .参数 lpDirectory, 文本型
    .参数 nShowCmd, 整数型

.DLL命令 GetCurrentProcessId, 整数型, "Kernel32.dll", "GetCurrentProcessId"

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

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