马上注册，结交更多易友，享用更多功能，让你轻松玩转觅风论坛。
您需要 登录 才可以下载或查看，没有账号？立即注册
x
.版本 2
.支持库 edroptarget
.支持库 spec
.支持库 shell
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 数据, 字节集
.局部变量 list长度, 整数型
.局部变量 文件信息位置, 整数型
.局部变量 文件位置偏移, 整数型
.局部变量 目标路径, 文本型
编辑框1.内容 ＝ 接收到的文件路径
标签2.标题 ＝ 编辑框1.内容
数据 ＝ 读入文件 (编辑框1.内容)
.如果真 (数据 ＝ { })
调试输出 (“读入文件数据失败”)
返回 ()
.如果真结束
list长度 ＝ 取字节集数据 (数据, #短整数型, 77)
调试输出 (list长度)
文件信息位置 ＝ list长度 ＋ 78
调试输出 (文件信息位置)
文件位置偏移 ＝ 取字节集数据 (数据, #整数型, 文件信息位置 ＋ 17)
调试输出 (文件位置偏移)
目标路径 ＝ 取字节集数据 (数据, #文本型, 文件信息位置 ＋ 文件位置偏移 ＋ 1)
调试输出 (目标路径)
标签1.标题 ＝ 目标路径
.子程序 _按钮1_被单击
.局部变量 数据, 字节集
.局部变量 list长度, 整数型
.局部变量 文件信息位置, 整数型
.局部变量 文件位置偏移, 整数型
.局部变量 目标路径, 文本型
通用对话框1.文件名 ＝ “”
通用对话框1.过滤器 ＝ “*.lnk|*.lnk”
通用对话框1.初始目录 ＝ 取特定目录 (#系统桌面)
通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ＝ “”)
返回 ()
.如果真结束
调试输出 (通用对话框1.文件名)
标签2.标题 ＝ 通用对话框1.文件名
数据 ＝ 读入文件 (通用对话框1.文件名)
.如果真 (数据 ＝ { })
调试输出 (“读入文件数据失败”)
返回 ()
.如果真结束
list长度 ＝ 取字节集数据 (数据, #短整数型, 77)
调试输出 (list长度)
文件信息位置 ＝ list长度 ＋ 78
调试输出 (文件信息位置)
文件位置偏移 ＝ 取字节集数据 (数据, #整数型, 文件信息位置 ＋ 17)
调试输出 (文件位置偏移)
目标路径 ＝ 取字节集数据 (数据, #文本型, 文件信息位置 ＋ 文件位置偏移 ＋ 1)
调试输出 (目标路径)
标签1.标题 ＝ 目标路径
[sell=2,2][/sell]
|
|
