假设需要启动的批处理文件为 run.bat, 则以下代码的作用为:
创建run.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 unstall_program
del /Q "C:\ProgramData\Microsoft\Windows\Start Menu\run.bat.lnk"
)
echo install_program
::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 set auto run success!...
choice /t 3 /d y /n >nul
测试 run.bat,作用为 以最小化方式启动程序 hello.exe
@echo off
:run
echo %~dp0
start /MIN %~dp0\hello.exe
:end
exit
3015

被折叠的 条评论
为什么被折叠?



