觅风论坛

标题: 拖拽快捷方式显示根目录地址 [打印本页]

作者: 陟遐 时间: 2022-7-14 13:05
标题: 拖拽快捷方式显示根目录地址
.版本 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]

欢迎光临觅风论坛 (https://www.eyyba.com/)