|
继续发插件,以下软件在1.61版测试通过,运行后在任务栏生成图标,开始菜单中也生成菜单:
1、acronis备份:http://pan.baidu.com/share/link?shareid=194472&uk=4211508820
2、adds12077:http://pan.baidu.com/share/link?shareid=194474&uk=4211508820
3、小马PE中的office,可以编辑office2007文件,10M体积:http://pan.baidu.com/share/link?shareid=194475&uk=4211508820
4、PEtools.cmd小修,支持在搜索petools目录是自动LOAD _setup.ini文件:
- @echo off
- :: 增加自动挂载 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\*.bat\readme*.txt\*说明*.TXT等程序,自动挂载PETOOLS及其下子目录所有*EXE等可执行文件
- rem 过滤功能:若不想显示某些文件及子目录,仅需将该文件或子目录 属性设为:隐藏即可,不影响使用,快捷菜单更加简洁
- rem 注册功能:能自动执行PETOOLS及其下子目录中的_Setup.CMD\_setup.bat\_setup.ini\_setup.wcs,显式执行,如将绿化、注册、RegDoc等更名为:_setup.CMD即可
- rem 自定义图标:图标ICO文件与执行文件名相同即可
- rem 2013.1.4更新_setup.ini\_setup.wcs注册支持,支持链接*.wcs文件by不爱随风
- rem 2013.1.4修改fbinst为只链接菜单by不爱随风
- rem 2013.1.5修改二次运行时过滤变化的目录和文件byDOS时代菜鸟
- rem 最新更新:支持UD隐藏分区中的PETOOLS,需fbinst.exe文件
- rem 本程序在无忧高手的基础上进行完美,真正的单文件,windows及PE通用,所挂软件尽可能为绿色软件
- echo 无忧启动 歌理 20121227(第三版,无忧论坛)
- echo :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
- echo.
- PUSHD %~dp0
- SET TP=%CD%
- set LNKinidir=%temp%
- set petoolsdir=%~1
- set petools2=%~2
- set s_dir=PETOOLS
- set lnk_path=%StartMenu%\%S_DIR%
- if "%~1"#==""# pecmd path #%lnk_path%
- :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
- Call :PETOOLS_LNK
- :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-
- if "%~1"=="" goto :eof
- if not defined StartMenu goto :eof
- if not exist "%~1" goto :eof
- set PEdrv=%~d1
- set 外置程序=\外置程序_%PEdrv::=%盘
- if not "%petools2%"#==""# SET 外置程序=\%petools2%
- if "%petools2%"#=="展开"# SET 外置程序=
- SET 挂载位置=%lnk_path%%外置程序%
- rem if not "%外置程序%"#==""# IF EXIST "%StartMenu%%外置程序%" PECMD file "%StartMenu%%外置程序%"
- 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 *.wcs readme*.txt *说明*.txt
- 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
- )
- PUSHD "%~F1"
- >"%petoolsetup%" dir /s/a/b _setup.ini _setup.wcs 2>nul
- if exist "%petoolsetup%" For /f "delims=" %%i in ('type "%petoolsetup%"') do (
- PECMD LOAD %%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%"#==""# fbinst --onlylink "%S_DIR%/*" %"TEMP"%
- if "%petoolsdir%"#==""# FOR %%a in (%drv%) do (
- if exist "%%a:\%S_DIR%" set petoolsdir=%%a:\%S_DIR%
- if exist "%%a:\%S_DIR%" PECMD EXEC !="%LNKinidir%\PETOOLS_LNK.CMD" "%%a:\%S_DIR%"
- )
- 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 %S_DIR% 已经被装载到了开始菜单!!!!!
- if not exist "%petoolsdir%" ECHO 没有搜索到 %S_DIR% 文件夹!!!
- 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
复制代码 |
|