精易模块 bug：系统_创建桌面快捷方式（）

单排练心态

执行此命令后，变量title会被改写成：C:\Users\Administrator\Desktop\测试.lnk

复现代码。

  

变量名	类 型	静态	数组	备 注
title	文本型

title ＝ “测试”
系统_创建桌面快捷方式 (title, 取运行目录 () ＋ “\” ＋ 取执行文件名 (), , , , , )
调试输出 (title)
标题 ＝ title
' 执行过后，title被改写成了    “C:\Users\Administrator\Desktop\测试.lnk”

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> .局部变量 title, 文本型<br /> title ＝ “测试”<br /> 系统_创建桌面快捷方式 (title, 取运行目录 () ＋ “\” ＋ 取执行文件名 (), , , , , )<br /> 调试输出 (title)<br /> 标题 ＝ title<br /> ' 执行过后，title被改写成了    “C:\Users\Administrator\Desktop\测试.lnk”

建议修复为：

  

子程序名	返回值类型	公开	备 注
系统_创建桌面快捷方式	逻辑型		创建桌面快捷方式 (成功返回真,失败返回假)
参数名	类 型	参考	可空	数组	备 注
lnk名称	文本型				如：精易编程助手
目标	文本型				指向的文件全路径文件名,如 C:\001.txt，如果是目录就直接为 C:\001
参数文本	文本型				执行文件的参数
图标文件	文本型				图标文件的路径  可空:为空时用目标的第一个图标
运行方式	整数型				1,常规方式，3,最大化，7,最小化
备注	文本型				快方式的备注信息
快捷键	文本型				启动快捷方式的快捷键  如“Ctrl+Alt+Y”

变量名	类 型	静态	数组	备 注
工作目录	文本型
临时文本	文本型		0
对象	对象
计次	整数型
局_返回值	逻辑型
临时_lnk名称	文本型

临时_lnk名称 ＝ lnk名称
如果真 (寻找文本 (临时_lnk名称, “\”, , 假) ≠ -1)
临时_lnk名称 ＝ 文件_取文件名 (临时_lnk名称)
如果 (寻找文本 (临时_lnk名称, “.lnk”, , 真) ＝ -1)
临时_lnk名称 ＝ 目录_取特定目录 () ＋ 临时_lnk名称 ＋ “.lnk”
临时_lnk名称 ＝ 目录_取特定目录 () ＋ 临时_lnk名称
如果真 (文件是否存在 (临时_lnk名称))
删除文件 (临时_lnk名称)
临时文本 ＝ 分割文本 (目标, “\”, )
如果真 (取数组下标 (临时文本, ) ＜ 2)
返回 (假)
计次循环首 (取数组下标 (临时文本, ) － 1, 计次)
工作目录 ＝ 工作目录 ＋ 临时文本 [计次] ＋ “\”
计次循环尾 ()
CoInitialize (0)
如果真 (对象.创建 (“WshShell”, “wshom.ocx”))
对象 ＝ 对象.对象型方法 (“CreateShortcut”, 临时_lnk名称)
局_返回值 ＝ 取反 (对象.是否为空 ())
如果真 (局_返回值 且 对象.写属性 (“TargetPath”, 目标))
对象.写属性 (“WorkingDirectory”, 工作目录)
如果 (是否为空 (图标文件))
判断 (文件_取扩展名 (目标) ＝ “”)
对象.写属性 (“IconLocation”, “SHELL32.dll,4”)
对象.写属性 (“IconLocation”, 目标 ＋ “,0”)

对象.写属性 (“IconLocation”, 图标文件)
对象.写属性 (“WindowStyle”, 运行方式)
对象.写属性 (“Description”, 备注)
对象.写属性 (“Arguments”, 参数文本)
对象.写属性 (“Hotkey”, 快捷键)
对象 ＝ 对象.对象型方法 (“Save”, )

CoUninitialize ()
返回 (局_返回值)

.版本 2<br /> <br /> .子程序 系统_创建桌面快捷方式, 逻辑型, 公开, 创建桌面快捷方式 (成功返回真,失败返回假)<br /> .参数 lnk名称, 文本型, , 如：精易编程助手<br /> .参数 目标, 文本型, , 指向的文件全路径文件名,如 C:\001.txt，如果是目录就直接为 C:\001<br /> .参数 参数文本, 文本型, 可空, 执行文件的参数<br /> .参数 图标文件, 文本型, 可空, 图标文件的路径  可空:为空时用目标的第一个图标<br /> .参数 运行方式, 整数型, 可空, 1,常规方式，3,最大化，7,最小化<br /> .参数 备注, 文本型, 可空, 快方式的备注信息<br /> .参数 快捷键, 文本型, 可空, 启动快捷方式的快捷键  如“Ctrl+Alt+Y”<br /> .局部变量 工作目录, 文本型<br /> .局部变量 临时文本, 文本型, , "0"<br /> .局部变量 对象, 对象<br /> .局部变量 计次, 整数型<br /> .局部变量 局_返回值, 逻辑型<br /> .局部变量 临时_lnk名称, 文本型<br /> <br /> 临时_lnk名称 ＝ lnk名称<br /> <br /> .如果真 (寻找文本 (临时_lnk名称, “\”, , 假) ≠ -1)<br />     临时_lnk名称 ＝ 文件_取文件名 (临时_lnk名称)<br /> .如果真结束<br /> .如果 (寻找文本 (临时_lnk名称, “.lnk”, , 真) ＝ -1)<br />     临时_lnk名称 ＝ 目录_取特定目录 () ＋ 临时_lnk名称 ＋ “.lnk”<br /> .否则<br />     临时_lnk名称 ＝ 目录_取特定目录 () ＋ 临时_lnk名称<br /> .如果结束<br /> .如果真 (文件是否存在 (临时_lnk名称))<br />     删除文件 (临时_lnk名称)<br /> .如果真结束<br /> 临时文本 ＝ 分割文本 (目标, “\”, )<br /> .如果真 (取数组下标 (临时文本, ) ＜ 2)<br />     返回 (假)<br /> .如果真结束<br /> .计次循环首 (取数组下标 (临时文本, ) － 1, 计次)<br />     工作目录 ＝ 工作目录 ＋ 临时文本 [计次] ＋ “\”<br /> .计次循环尾 ()<br /> CoInitialize (0)<br /> .如果真 (对象.创建 (“WshShell”, “wshom.ocx”))<br />     对象 ＝ 对象.对象型方法 (“CreateShortcut”, 临时_lnk名称)<br />     局_返回值 ＝ 取反 (对象.是否为空 ())<br />     .如果真 (局_返回值 且 对象.写属性 (“TargetPath”, 目标))<br />         对象.写属性 (“WorkingDirectory”, 工作目录)<br />         .如果 (是否为空 (图标文件))<br />             .判断开始 (文件_取扩展名 (目标) ＝ “”)<br />                 对象.写属性 (“IconLocation”, “SHELL32.dll,4”)<br />             .默认<br />                 对象.写属性 (“IconLocation”, 目标 ＋ “,0”)<br />             .判断结束<br /> <br />         .否则<br />             对象.写属性 (“IconLocation”, 图标文件)<br />         .如果结束<br />         对象.写属性 (“WindowStyle”, 运行方式)<br />         对象.写属性 (“Description”, 备注)<br />         对象.写属性 (“Arguments”, 参数文本)<br />         对象.写属性 (“Hotkey”, 快捷键)<br />         对象 ＝ 对象.对象型方法 (“Save”, )<br />     .如果真结束<br /> <br /> .如果真结束<br /> CoUninitialize ()<br /> 返回 (局_返回值)

项目部004

改用 系统_创建桌面快捷方式W 即可！