易语言组件拖放模块源码

系统结构:子程序1,子程序2,子程序3,接受拖放,撤销拖放,置回调函数,动态执行子程序,子类化程序,SetWindowLongA,IsWindow,GetWindowLongA,CallWindowProcA,DragQueryFileA,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 子程序2
           |  |
           |  |------ 子程序3
  ======控件文件拖放类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 接受拖放
           |  |
           |  |------ 撤销拖放
           |  |
           |  |------ 置回调函数
           |  |
           |  |
======程序集
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 动态执行子程序
           |  |
           |  |------ 子类化程序
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   IsWindow
           |  |
           |  |---[dll]------   GetWindowLongA
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   DragQueryFileA

调用的DLL命令:

.DLL命令 SetWindowLongA, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值

.DLL命令 IsWindow, 整数型, "user32", "IsWindow", , 判断一个窗口句柄是否有效　非零表示成功，零表示失败
    .参数 窗口句柄, 整数型, , 待检查窗口的句柄

.DLL命令 GetWindowLongA, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息　由nIndex决定。零表示出错。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：
GWL_EXSTYLE：扩展窗口样式
GWL_STYLE：窗口样式
GWL_WNDPROC：该窗口的窗口函数的地址
GWL_HINSTANCE：拥有窗口的实例的句柄
GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值
GWL_ID：对话框中一个子窗口的标识符
GWL_USERDATA：含义由应用程序规定
DWL_DLGPROC：这个窗口的对话框函数地址
DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值
DWL_USER：含义由应用程序规定

.DLL命令 CallWindowProcA, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数　
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 DragQueryFileA, 整数型, "shell32.dll", "DragQueryFileA", , 返回托动的文件名　
    .参数 hDrop, 整数型
    .参数 uInt, 整数型
    .参数 lpStr, 文本型, 传址
    .参数 ch, 整数型