|
//////////////////////////////////////////////////////////////
// Winxp,win2003,vista,win2008,win7pe 通用搜索程序 //
///////////////////////////////////////////////////////////////
_SUB SearchOP `递归搜索文件和文件夹
FORX %Stool%\*.*,Anyfile,0,CALL CaleShort
FORX @%Stool%\*.*,Stool,0,CALL SearchOP
_END
_SUB CaleShort `计算软件的相对路径
STRL iFile=%AnyFile%
CALC #iShort=%iFile%-%iCurDir%
RSTR sShort=%AnyFile%,%iShort%
CALL LinkClass
_END
_SUB SelectDir `判断挂载目录
FIND $%softDir%=桌面,CALL DeskLk
FIND $%softDir%=开始菜单,CALL starLk
FIND $%softDir%=快速启动栏,CALL QuckLk
FIND $%softDir%=程序,CALL ProgramLk
FIND $%softDir%=自动运行,CALL stupkLk
_END
_SUB LinkClass `判断文件类型
FEXT iExt=%Anyfile%
FIND $%iExt%=EXE,TEAM ENVI setIco=|CALL SelectDir
FIND $%iExt%=CMD,TEAM ENVI setIco=%icodic%|CALL SelectDir
FIND $%iExt%=BAT,TEAM ENVI setIco=%icodic%|CALL SelectDir
FIND $%iExt%=WIM,TEAM ENVI setIco=|CALL SelectDir
_END
_SUB stupkLk `挂载到开机自动运行
NAME ad=%anyfile%
LINK %startup%\%ad%,%anyfile%,,%setIco%
_END
_SUB StarLk `挂载到开始菜单
NAME ad=%anyfile%
LINK %Startmenu%\%ad%,%anyfile%,,%setIco%
_END
_SUB DeskLk `挂载到桌面
NAME ad=%anyfile%
LINK %Desktop%\%ad%,%anyfile%,,%setIco%
_END
_SUB QuckLk `挂载到快速启动栏
NAME aq=%anyfile%
LINK %QuickLaunch%\%aq%,%anyfile%,,%setIco%
_END
_SUB ProgramLk `判断PE系统
FIND $%os%=win6xs,Call win678!CALL win5xx
_END
_SUB win5xx `winxpe、win2003pe
LINK %Programs%\%sShort%,%Anyfile%,,%setIco%
_END
_SUB win678 `vistape、win2008pe、win7pe
NAME tmp=%anyfile%
LINK %tmplink%\%tmp%,%anyfile%,,%setIco%
PINT %tmplink%\%tmp%.LNK,附到「开始」菜单(&U)
_END
_SUB OPinit `初始化外置环境
TEXT 正在搜索PETOOLS目录下文件...#0x80FF00 L80 T540 R720 B580 $20
EXEC !=CMD.EXE /C "ver|find /i " 6.1">nul &&echo CALL vstwin7>>%windir%\sysclass.ini" `判断系统类型
EXEC !=CMD.EXE /C "ver|find /i " 6.0">nul &&echo CALL vstwin7>>%windir%\sysclass.ini"
EXEC !=CMD.EXE /C "ver|find /i " 5.1">nul &&echo CALL 2003xp>>%windir%\sysclass.ini"
EXEC !=CMD.EXE /C "ver|find /i " 5.2">nul &&echo CALL 2003xp>>%windir%\sysclass.ini"
WAIT 20
IFEX %CurDir%\sysclass.ini,LOAD %CurDir%\sysclass.ini!LOAD %windir%\sysclass.ini `可自定义win6.x 的挂载路径
IFEX %windir%\tools\bat.ico,ENVI icodic=%windir%\tools\bat.ico!ENVI icodic=%Curdir%\bat.ico `自定义BAT,CMD的图标
EXEC =!\petools\程序\wimnt\wimnt.exe /reg /mp Y:\ /tp %temp% /setup
_END
_SUB vstwin7 `定义win2x、win3x
PATH %WinDir%\Atemp
ENVI tmplink=%WinDir%\Atemp
ENVI OsPh=X:\user\system\AppData\Roaming\wicrosoft\windows
ENVI Desktop=X:\user\system\桌面
ENVI QuickLaunch=%OsPh%\internet Explorer\Quick Launch
ENVI Startmenu=%OsPh%\Windows\「开始」菜单
ENVI Programs=%OsPh%\Windows\「开始」菜单\Programs
ENVI Startup=%OsPh%\Windows\「开始」菜单\Programs\启动
ENVI Os=win6xs
_END
_SUB 2003xp `定义win1x 的挂载目录
ENVI Startup=%USERPROFILE%\「开始」菜单\程序\启动
ENVI Programs=%USERPROFILE%\「开始」菜单\程序
ENVI QuickLaunch=%USERPROFILE%\Application Data\Microsoft\Internet Explorer\Quick Launch
TEAM ENVI Startmenu=%USERPROFILE%\「开始」菜单|ENVI Desktop=%USERPROFILE%\桌面
ENVI Os=win5sys
_END
_SUB LoaclDir `指定搜索目标
ENVI Stool=%CurDir%\%softDir%
STRL iCurDir=%Stool%\
CALL SearchOP
_END
/////////////////////////////////////
CALL OPinit
IFEX %Curdir%\桌面,TEAM ENVI softDir=桌面|CALL LoaclDir
IFEX %Curdir%\快速启动栏,TEAM ENVI softDir=快速启动栏|CALL LoaclDir
IFEX %Curdir%\开始菜单,TEAM ENVI softDir=开始菜单|CALL LoaclDir
IFEX %Curdir%\自动运行,TEAM ENVI softDir=自动运行|CALL LoaclDir
IFEX %Curdir%\程序,TEAM ENVI softDir=程序|CALL LoaclDir
CALL SearchOP
TEXT `清除显示文字
MESS 外置工具已经被装载到了开始菜单。@挂载PETOOLS工具 #OK *2000 `提示挂载完成
EXIT
/////////--2009-11-11 coolg--/////////////
我的注册表先增加了一个ram的Y:,在此配置文件里注册了wimnt.exe,wim设置了挂载后运行的cmd文件,只需要用wimnt挂到Y:盘就好,帮我看下,怎样才能达到自动运行里按顺序加载,不需要挂到Y盘还去搜索加载可执行文件的快捷键。 |
|