创建自定义图标的快捷方式到桌面
@echo off
echo 正在创建桌面快捷方式,请勿关闭本窗口. ::设置程序或文件的完整路径(必选) set Program=%cd%\portal.bat ::设置快捷方式名称(必选) set LnkName=协同平台 ::设置程序的工作路径,一般为程序主目录,此项若留空,脚本将自行分析路径 set WorkDir=%cd% ::设置快捷方式显示的说明(可选) set Desc=协同平台 ::设置快捷方式的图标 set Icon=%cd%\runner.exe if not defined WorkDir call:GetWorkDir "%Program%" (echo Set WshShell=CreateObject("WScript.Shell"^) echo strDesKtop=WshShell.SpecialFolders("DesKtop"^) echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^&"\%LnkName%.lnk"^) echo oShellLink.TargetPath="%Program%" echo oShellLink.WorkingDirectory="%WorkDir%" echo oShellLink.WindowStyle=1 echo oShellLink.IconLocation ="%Icon%" echo oShellLink.Description="%Desc%" echo oShellLink.Save)>makelnk.vbs echo 桌面快捷方式创建成功! makelnk.vbs del /f /q makelnk.vbs exit goto :eof :GetWorkDir set WorkDir=%~dp1 set WorkDir=%WorkDir:~,-1% goto :eof
注意,配合批处理自动后台执行,会导致bat运行环境不正确。
随笔为本人学习笔记以及个人看法,若有错误,欢迎指正