用批处理在桌面上创建快捷方式

    广州疯狂软件学院拥有三大课程体系包括:java课程,android课程,ios课程,疯狂软件年终钜惠,报名java就业班,免费赠送基础班,名额有限,本月火热报名中,欢迎有志之士电话或者QQ咨询。

  用批处理在桌面上创建快捷方式

  echo. 正在创建快捷方式…

  set desktop=

  :: 桌面路径

  call :__CreateDesktopPath

  :: 快捷方式一

  call :__StringCat %desktop% "汽车玻璃升降器耐久性测试系统。lnk"

  set target=%result%

  call :__StringCat %installPath% "WindowLiftDurabilityTest.exe"

  set srcFile=%result%

  call :__StringCat %srcFile% ",0"

  set icon=%result%

  call :__CreateShort %srcFile% %target% %icon% %installPath%

  echo. 安装完成, 按回车键结束… & pause > nul

  goto __success

  :: 判断语言环境

  :__Locale

  set SystemLocale=

  ver|find /i "Version">nul

  if %errorlevel% equ 0 (set SystemLocale=EN_US&goto:eof) else set

  SystemLocale=ZH_CN&goto:eof

  :: 判断系统版本

  :__Version

  set SystemVersion=

  ver|findstr "5.[0-9].[0-9][0-9]*">nul&&(set

  SystemVersion=WIN_XP&goto:eof)

  ver|findstr "6.[0-9].[0-9][0-9]*">nul&&(set

  SystemVersion=WIN_VISTA_7&goto:eof)

  :: 根据不同系统版本、不同语言环境生成"桌面"的绝对路径

  :__CreateDesktopPath

  set en_desktop="DESKTOP"

  set cn_desktop="桌面"

  call :__Locale

  call :__Version

  if %SystemLocale%==EN_US (call :__Compound %en_desktop%&goto:eof)

  if %SystemVersion%==WIN_XP (

  if %SystemLocale%==EN_US (

  call :__Compound %en_desktop% & goto :eof

  ) else (

  call :__Compound %cn_desktop% & goto :eof

  )

  ) else (

  call :__Compound %en_desktop% & goto :eof

  )

  :: 字符串合成

  :__Compound

  call :__StringCat "%USERPROFILE%" %1

  set desktop=%result%

  goto :eof

  :: 字符串连接 会自动去掉最外层的双引号后连接

  :__StringCat

  set result=

  set result=%~1%~2

  set result="%result%"

  goto :eof

  :__CreateShort

  set vbsStr="Set a=CreateObject(""WScript.Shell""):Set

  b=a.CreateShortcut(""%~2""):b.TargetPath=""%

  ~1"":b.WorkingDirectory=""%~4"":b.IconLocation=""%~3"":b.Save:close"

  mshta VBScript:Execute(%vbsStr%)

  goto :eof

  :__success

  set installPath=

  set result=

  set SystemVersion=

  set desktop=

  set SystemLocale=

  set en_desktop=

  set cn_desktop=

  set vbsStr=

  疯狂Java培训专注软件开发培训,提升学员就业能力,重点提升实践动手能力。技术知识沉淀深厚的老师,让你感受Java的魅力,激发你对于编程的热爱,让你在半年的时间内掌握8-10万的代码量,掌握Java核心技术,成为真正的技术高手;通过大量全真企业项目疯狂训练,迅速积累项目经验。让你成为技能型的现代化高端人才,迅速获得高薪就业!时间不等人,赶紧联系我们吧!疯狂java培训中心地址:广州天河区车陂沣宏大厦3楼。

  疯狂Java培训专注软件开发培训,提升学员就业能力,重点提升实践动手能力。疯狂软件开设了java课程,ios课程,android课程,为你提供一个学习java技能的好机会,疯狂软件特大优惠活动,加疯狂软件微信号(疯狂软件),抢优惠,优惠100元+赠送iOS教材一本 详情请看疯狂java培训官网。IT从业着仍是社会所需要的高端人才,广州疯狂软件之力于培养企业所需要的中高端IT人才,让你成为备受企业青睐的人才。

原文地址:https://www.cnblogs.com/gojava/p/3506950.html