利用 bat 创建桌面快捷键并更改图标

:: 读取用户桌面
for /f "tokens=2*" %%a in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Desktop') do set Desktop=%%b

:: 待执行文件

set SrcFile=%cd%\安装服务.bat

:: 快捷图标 路径或者 exe路径(exe路径将取exe图标)

set lnkIcon=%cd%\Hydee.PrintServer.exe

//快捷图标位置
set lnkPath=%Desktop%\启动打印服务.lnk

// 创建快捷键 (CreateShort 为后面定义函数)
call :CreateShort "%SrcFile%" "%lnkPath%" "%lnkIcon%"
goto :eof

 

 

::Arguments 目标程序参数
::Description 快捷方式备注
::FullName 返回快捷方式完整路径
::Hotkey 快捷方式快捷键
::IconLocation 快捷方式图标，不设则使用默认图标
::TargetPath 目标
::WindowStyle 窗口启动状态
::WorkingDirectory 起始位置

:CreateShort
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2""):b.TargetPath=""%~1"":b.IconLocation=""%~3"":b.WorkingDirectory=""%~dp1"":b.Save:close")