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

    广州疯狂软件学院拥有三大课程体系包括：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人才，让你成为备受企业青睐的人才。