易语言文件拖放例程源码

文件拖放例程

系统结构:设置窗口是否接受拖放,结束拖放,取被拖放文件数,取被拖放文件名,

======窗口程序集1
| |
| |------ __启动窗口_创建完毕
| |
| |------ _标签1_反馈事件
| |
| |------ _标签2_反馈事件
| |
| |------ _按钮2_被单击
| |
| |
======调用的Dll
| |
| |---[dll]------ 设置窗口是否接受拖放
| |
| |---[dll]------ 结束拖放
| |
| |---[dll]------ 取被拖放文件数
| |
| |---[dll]------ 取被拖放文件名

调用的DLL命令:

.DLL命令 设置窗口是否接受拖放, 逻辑型, "shell32.dll", "DragAcceptFiles", , 设置窗口是否接受拖放
.参数 hWnd, 整数型
.参数 isAccept, 逻辑型, , true:接收拖放

.DLL命令 结束拖放, , "shell32.dll", "DragFinish", , 结束拖放
.参数 hDrop, 整数型, , hDrop取自WM_DROPFILES消息的wParam参数

.DLL命令 取被拖放文件数, 整数型, "shell32.dll", "DragQueryFile", , 取被拖放文件名
.参数 hDrop, 整数型, , hDrop取自WM_DROPFILES消息的wParam参数
.参数 index_of_file, 整数型, , 如果为 -1,DragQueryFile返回已传送文件数
.参数 buf, 整数型
.参数 size_of_buf, 整数型

.DLL命令 取被拖放文件名, , "shell32.dll", "DragQueryFile"
.参数 hDrop, 整数型, , hDrop取自WM_DROPFILES消息的wParam参数
.参数 index_of_file, 整数型, , 如果为 -1,DragQueryFile返回已传送文件数
.参数 buf, 文本型
.参数 size_of_buf, 整数型