|  | 
| PETOOLS_New.rar在Win8.1 RAMOS上用不了,双击没反应。
 能否把下面文件弄成单文件?
 
 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 @echo off
 color 2E
 :: 增加自动挂载 UD\PETOOLS功能
 rem 程序名称:PETOOLS.CMD
 
 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 echo  PETools扩展目录搜索挂载程序...........................
 title 挂载PETOOLS
 rem  程序功能:自动搜索加载外置\PETOOLS\下的程序,以快捷方式的形式,挂载到开始菜单,免除LINK命令的繁琐
 rem  默认搜索:自动搜索所有分区根目录下 PETOOLS,以盘符区分
 rem  特定挂载:带指定目录为参数,可以仅挂载该目录下的程序,如 挂载PETOOLS.CMD D:\绿化工具
 rem  特定挂载时,若再加参数 展开,如 D:\绿化工具 展开,则绿化工具下的程序将直接展开到开始菜单
 rem 若无展开参数,则自动以目录名取代PETOOLS_X盘,如绿色工具,适用于正常系统或PE
 rem PE\windows通用:本程序为独立程序,可放于任意位置,支持XP\03\win7 PE,若有PECMD.exe,同时支持正常 WINDOWS xp\w7 系统!
 rem 在windows 下,如执行:搜索加载PETOOLS.CMD D:\绿化工具,会将绿化工具 挂载到开始菜单(本程序目录需有PECMD.EXE)
 rem 本程序仅挂载 *.EXE\*.WIM\*.CMD\*说明*.TXT等程序,自动挂载PETOOLS及其下子目录所有*EXE等可执行文件
 rem 过滤功能:若不想显示某些文件及子目录,仅需将该文件或子目录 属性设为:隐藏即可,不影响使用,快捷菜单更加简洁
 rem 注册功能:能自动执行PETOOLS及其下子目录中的 _Setup.CMD,显式执行,如将绿化、注册、RegDoc等更名为:_setup.CMD即可
 rem 自定义图标:图标ICO文件与执行文件名相同即可
 rem
 rem 最新更新:支持UD隐藏分区中的PETOOLS,需fbinst.exe文件
 rem 本程序在无忧高手的基础上进行完美,真正的单文件,windows及PE通用,所挂软件尽可能为绿色软件
 echo.
 echo.
 
 PUSHD %~dp0
 SET TP=%CD%
 
 set LNKinidir=%temp%
 set petoolsdir=%~1
 set petools2=%~2
 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 Call :PETOOLS_LNK
 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
 
 
 if "%~1"=="" goto :eof
 if not defined Desktop goto :eof
 if not exist "%~1" goto :eof
 set PEdrv=%~d1
 set 外置程序=\外置程序_%PEdrv::=%盘
 if not "%petools2%"#==""# SET 外置程序=\%petools2%
 if "%petools2%"#=="展开"# SET 外置程序=
 SET 挂载位置=%%Desktop%%%外置程序%
 
 rem if not "%外置程序%"#==""# IF EXIST "%Desktop%%外置程序%" PECMD file "%Desktop%%外置程序%"
 
 set petoolsexe=%LNKinidir%\petoolsexe.lst
 set petoolslnk=%LNKinidir%\petoolslnk.INI
 set petoolsetup=%LNKinidir%\petoolsetup.lst
 
 :START
 DEL "%petoolsexe%" 2>nul
 DEL "%petoolslnk%" 2>nul
 DEL "%petoolsetup%" 2>nul
 PUSHD "%~F1"
 >"%petoolsexe%" dir /s/b *.wim *.cmd *.bat *.exe readme*.txt *.说明 *.txt *.7z *.RAR *.ACE *.ARJ *.BZ2 *.CAB *.GZ *.ISO *.JAR *.LZH *.TAR *.UUE *.XZ *.Z *.lnk *.jpg *.PNG *.BMP *.GIF
 POPD
 for /f "usebackq delims=" %%i in ("%petoolsexe%") do CALL :MAKE_LINK "%%i"
 PECMD LOAD %petoolslnk%
 
 PUSHD "%~F1"
 >"%petoolsetup%" dir /s/a/b _setup.CMD _setup.BAT 2>nul
 if exist "%petoolsetup%" For /f "delims=" %%i in ('type "%petoolsetup%"') do (
 PECMD EXEC !=%%i
 )
 POPD
 goto :eof
 
 :MAKE_LINK
 SETLOCAL
 if "%~1"=="" goto :eof
 set toolfile=%~1
 if /i "%~n1"=="_setup" goto :eof
 if /i "%~n1"=="petools" goto :eof
 if /i "%~n1"=="直接挂载到开始菜单" goto :eof
 
 set myICO=
 SET lnkname=%~dpn1
 if exist "%lnkname%.ICO" set myICO=,,%lnkname%.ICO
 call,set "lnkname=%%lnkname:%petoolsdir%\=%%"
 >>"%PEtoolslnk%" echo.LINK %挂载位置%\%lnkname%,%toolfile%%myICO%
 GOTO :EOF
 
 
 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
 :PETOOLS_LNK
 IF NOT EXIST "%SystemRoot%\system32\PECMD.exe"  if not EXIST "%TP%\PECMD.exe" echo 请将PECMD.EXE复制到本程序目录下,再运行!&&pause&&exit
 IF NOT EXIST "%SystemRoot%\system32\PECMD.exe" copy "%TP%\PECMD.exe" "%SystemRoot%\system32\PECMD.exe"
 set CMDfile=%~F0
 >"%LNKinidir%\PETOOLS_LNK.CMD" echo @echo  off
 TYPE "%CMDfile%"|FIND /v /i "PETOOLS_LNK">>"%LNKinidir%\PETOOLS_LNK.CMD"
 echo 正在搜索 PETOOLS,请不要关闭本窗口,搜索完毕会自动关闭.......
 echo .
 rem 若无展开,取目录名,挂载用
 set toolsdir=%tp%
 if  %petools2%#==# call :getoolsdir
 if  %petools2%#==# set petools2=%toolsdir%
 if not "%petoolsdir%"#==""# PECMD EXEC !="%LNKinidir%\PETOOLS_LNK.CMD"  "%petoolsdir%" "%petools2%"
 
 
 set drv=C D E F G H I J K L M N O P Q R S T U V W X Y Z
 
 
 if "%petoolsdir%"#==""# FOR %%a in (%drv%) do (
 if exist "%%a:\PETOOLS" set petoolsdir=%%a:\PETOOLS
 if exist "%%a:\PETOOLS" PECMD EXEC !="%LNKinidir%\PETOOLS_LNK.CMD"  "%%a:\PETOOLS"
 )
 echo .
 rem if exist "%petoolsdir%" PECMD KILl explorer.exe
 rem if exist "%petoolsdir%" if not exist x:\ PECMD EXEC explorer.exe
 if exist "%petoolsdir%" echo PETOOLS已经被装载到桌面!!!!!
 if not exist "%petoolsdir%"  ECHO 没有搜索到 PETOOLS 文件夹!!!
 del "%LNKinidir%\PETOOLS*.*" 2>nul
 pecmd wait -3000
 exit
 GOTO :eof
 
 
 rem 取目录名
 :getoolsdir
 for %%n in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20) do call :getdir01
 goto :eof
 
 :getdir01
 for /f "delims=\" %%i in ("%toolsdir%") do set a=%%i&&call :getdir02
 goto :eof
 
 :getdir02
 call,set "toolsdir=%%toolsdir:%a%\=%%"
 goto :eof
 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 | 
 |