bat實現自啓動以及創建快捷方式

::install.bat文件

@echo off
setlocal EnableDelayedExpansion
set WrkDir=%~dp0
set "LinkName=run.bat.lnk"
set filname=run.bat
set ThePath=%~dp0%run.bat 
mshta VBScript:Execute("Set Shell=CreateObject(""WScript.Shell""):Set Link=Shell.CreateShortcut(""!LinkName!""):Link.TargetPath=""!ThePath!"":Link.WorkingDirectory=""!WrkDir!"":Link.Save:close"^)
if exist  "C:\ProgramData\Microsoft\Windows\Start Menu\run.bat.lnk" (
  echo 卸載原有程序
  del /Q "C:\ProgramData\Microsoft\Windows\Start Menu\run.bat.lnk"
)
 echo 安裝新程序
::copy /y run.bat.lnk "%USERPROFILE%\Desktop\" >nul 2>nul
move /y run.bat.lnk "C:\ProgramData\Microsoft\Windows\Start Menu\" >nul 2>nul
echo 自啓動安裝成功！...
choice /t 3 /d y /n >nul

:: run.bat與jar文件放在一起



@echo off

:run

start javaw -jar XiaoyiTimer.jar

:end

exit

增強版的鏈接