文件拖出例子源码

.版本 2
.支持库 eAPI
.支持库 shell
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 集_句柄, 整数型
.程序集变量 集_载入, 逻辑型

.子程序 _时钟1_周期事件

集_句柄 ＝ 取鼠标所在窗口句柄 ()

.子程序 取资源管理器目录, 文本型, , 失败返回空
.参数 句柄, 整数型
.局部变量 局_标题, 文本型
.局部变量 局_句柄, 整数型, , "0"
.局部变量 i

窗口_枚举所有子窗口 (窗口_取祖句柄 (句柄), 局_句柄, “ToolbarWindow32”)
.计次循环首 (取数组成员数 (局_句柄), i)
    局_标题 ＝ 窗口_取标题 (局_句柄 [i])
    .如果真 (寻找文本 (局_标题, “地址”, , 假) ≠ -1)  ' 因为取出来的句柄有四个，但只有一个是需要的，所以进行下判断
        局_标题 ＝ 子文本替换 (局_标题, “地址: ”, “”, , , 真)  ' 替换下，得到想要的字符串
        返回 (局_标题 ＋ “”)  ' 取到的目录非'/'结尾，自己加下
    .如果真结束

.计次循环尾 ()
返回 (“”)

.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

时钟1.时钟周期 ＝ 50
SetCapture (图片框1.取窗口句柄 ())  ' 捕获鼠标

.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 局_文件目录, 文本型

时钟1.时钟周期 ＝ 0  ' 为了防止取不到想要的句柄，先停止
.判断开始 (集_句柄 ＝ 窗口_取桌面句柄 ())  ' 用户选择了拖到桌面
    局_文件目录 ＝ 取特定目录 (3)
.默认
    局_文件目录 ＝ 选择 (取资源管理器目录 (集_句柄) ＝ “”, 取特定目录 (3), 取资源管理器目录 (集_句柄))  ' 防止目录错误，如果取出失败，则写到桌面
.判断结束
局_文件目录 ＝ 局_文件目录 ＋ “测试图片.jpg”
调试输出 (局_文件目录)
写到文件 (局_文件目录, 图片框1.图片)
ReleaseCapture ()  ' 释放捕获

.子程序 __启动窗口_创建完毕

@东坡