shortcut.bat 808 B

12345678910111213141516171819202122232425262728293031
  1. @echo off
  2. ::设置程序或文件的完整路径(必选)
  3. set Program=C:\HSC
  4. ::设置快捷方式名称(必选)
  5. set LnkName=HSC+加密工具
  6. ::设置程序的工作路径,一般为程序主目录,此项若留空,脚本将自行分析路径
  7. set WorkDir=
  8. ::设置快捷方式显示的说明(可选)
  9. set Desc=测试
  10. if not defined WorkDir call:GetWorkDir "%Program%"
  11. (echo Set WshShell=CreateObject("WScript.Shell"^)
  12. echo strDesKtop=WshShell.SpecialFolders("DesKtop"^)
  13. echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^&"\%LnkName%.lnk"^)
  14. echo oShellLink.TargetPath="%Program%"
  15. echo oShellLink.WorkingDirectory="%WorkDir%"
  16. echo oShellLink.WindowStyle=1
  17. echo oShellLink.Description="%Desc%"
  18. echo oShellLink.Save)>makelnk.vbs
  19. echo 桌面快捷方式创建成功!
  20. makelnk.vbs
  21. del /f /q makelnk.vbs
  22. goto :eof
  23. :GetWorkDir
  24. set WorkDir=%~dp1
  25. set WorkDir=%WorkDir:~,-1%
  26. goto :eof