WinRAR自解压安装包制作

脚本创建桌面快捷方式

 1 @echo off
 2 
 3 set Program=C:\Progra~2\MK\HelloW~1\HelloWorld.exe
 4 set LnkName=HelloWorld
 5 set Desc=HelloWorld测试程序
 6 set WorkDir= 
 7 call :CreateShortCut %Program% %LnkName% %Desc% %WorkDir%
 8 
 9 start %USERPROFILE%\DesKtop\%LnkName%.lnk
10 
11 ::退出
12 exit
13 
14 :CreateShortCut
15 if not defined WorkDir call:GetWorkDir "%1" 
16 (echo Set WshShell=CreateObject("WScript.Shell"^)
17 echo strDesKtop=WshShell.SPEcialFolders("DesKtop"^)
18 echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^&"\%2.lnk"^)
19 echo oShellLink.TargetPath="%1"
20 echo oShellLink.WorkingDirectory="%4"
21 echo oShellLink.Windowstyle=1
22 echo oShellLink.Description="%3"
23 echo oShellLink.Save)>makelnk.vbs
24 echo 桌面快捷方式创建成功！
25 makelnk.vbs
26 del /f /q makelnk.vbs
27 goto :eof

 

 

视频地址：

https://pan.baidu.com/s/1pOvWfBC39sWYfCuPokQlFw

 

posted @ 2019-09-10 23:54  Yan327  阅读(633)  评论(0)  编辑  收藏  举报