|
@ECHO OFF
setlocal ENABLEDELAYEDEXPANSION
Title Origin 2017 安装
mode con: cols=65 lines=25
color 0A
:-------------------------------------
echo 检查 管理员权限...
%Windir%\System32\FLTMC.exe >nul 2>&1 && goto gotAdmin
set "vbs=CreateObject(""Shell.Application"").ShellExecute ""%~0"", """", """", ""runas"", 1:window.close"
mshta VBScript:Execute("%vbs%") & exit /b
:gotAdmin
cls & pushd "%CD%" & CD /D "%~dp0"
:--------------------------------------
set "PathBat=%~dp0"
set "PathBat=%PathBat:~0,-1%"
set "PathDesktop=%USERPROFILE%\Desktop"
::=======================================
echo 创建快捷方式
echo.
set "PathExe=%PathBat%"
set "PathLnk=%PathDesktop%"
set "Lnk=Test.lnk"
set "Target=%PathExe%\Test.exe"
set "Arguments="
set "WorkingDir=%PathExe%"
set "Hotkey="
set "WindowStyle=1"
set "Description=描述"
echo 创建 %Lnk%
call :CreateShort "%PathLnk%\%Lnk%" "%Target%" "%Arguments%" "%WorkingDir%\" "%Hotkey%" "%WindowStyle%" "%Description%"
echo.
echo 快捷方式创建完成!
choice /c YN /t 1 /d Y>nul
goto :EOF
===================================================
::LnkPath 快捷方式位置
::LnkFile 快捷方式名
::TargetPath 目标
::Arguments 参数
::WorkingDirectory 起始位置
::Hotkey 快捷键
::WindowStyle 窗口启动状态
::Description 快捷方式备注
::IconLocation 快捷方式图标,不设则使用默认图标
:CreateShort
set "vbs= set a=CreateObject(""WScript.Shell"")"
set "vbs=%vbs%: set b=a.CreateShortcut(""%~1"")"
set "vbs=%vbs%: b.TargetPath=""%~2"""
set "vbs=%vbs%: b.Arguments=""%~3"""
set "vbs=%vbs%: b.WorkingDirectory=""%~4"""
set "vbs=%vbs%: b.Hotkey=""%~5"""
set "vbs=%vbs%: b.WindowStyle=""%~6"""
set "vbs=%vbs%: b.Description=""%~7"""
set "vbs=%vbs%: b.Save"
set "vbs=%vbs%: close"
mshta VBScript:Execute("%vbs%")
goto :EOF
:EOF |
|