易语言添加发送到功能

易语言 2020-10-23 16:45:30

指向文件路径 = 注册表1.取易语言安装路径 () + “\lib”
快捷方式文件名 = 注册表1.取发送到路径 () + “\lib(fne支持库)”
逻辑 = 创建快捷方式 (快捷方式文件名, 指向文件路径, “《易语言代码大全》”, , )
' ──────────
指向文件路径 = 注册表1.取易语言安装路径 () + “\ecom”
快捷方式文件名 = 注册表1.取发送到路径 () + “\ecom(ec模块)”
输出调试文本 (快捷方式文件名, 指向文件路径)
逻辑 = 创建快捷方式 (快捷方式文件名, 指向文件路径, “《易语言代码大全》”, , )
.如果 (逻辑 = 真)
信息框 (“成功!……” + #换行符 + “对.ec文件,用鼠标右击→发送到→【ecom(ec模块)】” + #换行符 + “对.fne文件,用鼠标右击→发送到→【lib(fne支持库)】即可”, 0, “《易语言代码大全》”)
执行 (#浏览文件夹, 注册表1.取发送到路径 (), , )