|
我的新动向,我正在搞一个可以由用户自己选择挂载外置程序,应测试成功,只是不支持定位在启动PE的磁盘分区或光盘,不知道老九是否会增加该定位功能,目前使用的是搜索所有磁盘分区的方式,虽然可用,但有可能会出现所加载的外置不是用户所期望的外置的问题,只是搜索所有磁盘分区的一个弊端。现将该雏形代码贴出来,欢迎大家提出宝贵意见。
_SUB OK1
MESS 测试成功4 @测试 #ok *10000
_END
_SUB Mount_ADD
TEAM TEXT 正在加载应用程序……#0xFFF00 L20 T540 R720 B580 $20|WAIT 1000|MOUN %Mount_FILENAME%.WIM Y:,1,%TEMP%|LOAD Y:\%Mount_FILENAME%.ini|FILE %SystemRoot%\%Mount_FILENAME%.ini|TEXT
_END
_SUB SetDRV
FIND $%Mount_Box1.Check%=1,TEAM ENVI Mount_FILENAME=AppPACK|CALL Mount_ADD
FIND $%Mount_Box2.Check%=1,TEAM ENVI Mount_FILENAME=MMC|CALL Mount_ADD
FIND $%Mount_Box2.Check%=1,IFEX %Curdrv%\StartCD.exe,LINK %StartMenu%\启动WinPE安装程序,%Curdrv%\StartCD.exe `开始菜单建立自动播放快捷方式
FIND $%CheckBox1.Check%=1,CALL OK1
TEAM ENVI Mount_FILENAME=|KILL \%Mount_Windows%
_END
_SUB Mount_Windows,W280H285,加载应用程序包,,Shell32.dll#307,1
GROU Group1,L8T10W258H90,请选择欲加载的应用程序包
CHEK Mount_Box1,L25T30W230H20,基本应用软件包 (加载基本应用软件),,0
CHEK Mount_Box2,L25T50W230H20,MMC 组件包 (加载 MMC 组件..),,0
CHEK Mount_Box3,L25T70W230H20,开始菜单建立自动播放快捷方式..,,1
GROU Group1,L8T110W238H70,请选择
CHEK CheckBox1,L25T130W230H20,设置临时文档 (设虚拟内存到D盘),,1
ITEM Button1,L214T246W52H20,确 定,CALL SetDRV
TIME Timer1,10000,
_END
IFEX MEM>20,CALL @Mount_Windows!MESS 剩余内存不足20M,无法\n加载应用程序。\n @警告:内存紧张 #OK *3000
EXIT
[ 本帖最后由 free68 于 2009-8-16 11:47 编辑 ] |
|