|
发表于 2015-5-20 16:53:30
|
显示全部楼层
本帖最后由 a837198 于 2015-5-20 16:56 编辑
暂时先用 vbs 文件来实现 吧
调用的话 桌面快捷方式() 即可 把自己创建一个桌面快捷方式
- 功能 创建快捷方式(文件源路径="",快捷方式路径="",快捷方式名="")
- 如果(文件源路径=="")
- 文件源路径=窗口获取路径(窗口获取自我句柄())
- 结束
-
- 选择(快捷方式名)
- 条件 ""
- 变量 len1,返回值,返回值2
- len1=字符串分割(文件源路径,"\",返回值)
- 字符串分割(返回值[len1-1],".",返回值2)
- 快捷方式名=返回值2[0]
- 条件 "窗口标题"
- 快捷方式名=窗口获取标题(窗口获取自我句柄())
- 默认
- 快捷方式名=字符串替换(快捷方式名,".lnk","")
- 结束
-
- 变量 strProgram ="Sub Shortcut(filepath,lnkpath)\r\nOn Error Resume Next\r\n set WshShell = CreateObject("WScript.Shell")\r\n "
-
- 如果(快捷方式路径=="")
- //在桌面创建快捷方式
- 快捷方式名=快捷方式名&".lnk"
- strProgram =strProgram &"strDesktop = WshShell.SpecialFolders("Desktop")\r\n set oShellLink = WshShell.CreateShortcut(strDesktop &"\\"&lnkpath)\r\n "
- 否则
- //指定位置的快捷方式
- 快捷方式名=快捷方式路径&"\"&快捷方式名&".lnk"
- strProgram =strProgram &"set oShellLink = WshShell.CreateShortcut(lnkpath)\r\n "
- 结束
-
- strProgram =strProgram &"oShellLink.TargetPath = filepath\r\n oShellLink.WorkingDirectory =left(filepath,InStrRev(filepath, "\\")-1)\r\n oShellLink.Save\r\n Set oShellLink = Nothing\r\n Set WshShell = Nothing\r\n End Sub"
- //此处写自己的文件地址
- strProgram =strProgram &"\r\n file=""&文件源路径&"""
- strProgram =strProgram &"\r\n lnk=""&快捷方式名&"""
- //此处调用创建快捷方式的函数
- strProgram =strProgram &"\r\n Shortcut file,lnk"
- //此处调用创建vbs文件
- 变量 文件句柄=文件创建(获取资源路径("rc:shortcut.vbs"),"共享读|共享写|总是创建")
- 文件关闭(文件句柄)
- 文件句柄=文件覆盖内容(获取资源路径("rc:shortcut.vbs"),strProgram)
- //此处调用运行vbs文件
- 如果(文件句柄)
- 命令(获取资源路径("rc:shortcut.vbs"),假)
- 否则
- 消息框("创建桌面快捷方式失败","桌面快捷方式")
- 结束
- 结束
复制代码
|
|