易语言DragDropTest源码,易语言组件拖放模块源码 [db:版本]

易语言组件拖放模块源码

系统结构:子程序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, 整数型