創建自定義圖標的快捷方式到桌面

@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運行環境不正確。

　　批處理如何在啟動后，隱藏於后台