系统_创建桌面快捷方式

l李逍遥

命令：系统_创建桌面快捷方式  不加初始化COM库，线程中不能创建。

毛超

是的，请在主线程中运行就不需要COM组件，主线程为窗口程序的按钮事件，或者启动完成事件，标签反馈事件都可以完成

项目部004

收到反馈！该命令调用了COM对象，确实加上初始化COM库会好点！

项目部004

  

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

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

如果真 (寻找文本 (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 ()
返回 (局_返回值)

.子程序 系统_创建桌面快捷方式, 逻辑型, 公开, 创建桌面快捷方式 (成功返回真,失败返回假)<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名称, “\”, , 假) ≠ -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 />             对象.写属性 (“IconLocation”, 图标文件)<br />         .如果结束<br />         对象.写属性 (“WindowStyle”, 运行方式)<br />         对象.写属性 (“Description”, 备注)<br />         对象.写属性 (“Arguments”, 参数文本)<br />         对象.写属性 (“Hotkey”, 快捷键)<br />         对象 ＝ 对象.对象型方法 (“Save”, )<br />     .如果真结束<br /> .如果真结束<br /> CoUninitialize ()<br /> 返回 (局_返回值)

lq850815

#在这里快速回复#创建桌面快捷方式