请教在PE中快速分四区和快速安装系统如何设置？

孤独的幽灵

用Ghost手动选择不好吗？？？？？

bsplin

ghost.rar (228.27 KB, 下载次数: 408)

2011-1-19 11:12 上传

点击文件名下载附件

试试这个工具，很不错的！

快雪时晴

THIS IS WHAT YOU WANT

1. 
   
2. ;REVEALED BY [email]KXSQ@PEDIY.CN[/email], 2010
   
3. #NoTrayIcon
   
4. #Region
   
5. #AutoIt3Wrapper_Icon=D:\My Files\My Pictures\icon\Vista_Orbs_icon002.ico
   
6. #AutoIt3Wrapper_Outfile=D:\My Files\一键XP.EXE
   
7. #AutoIt3Wrapper_Compression=4
   
8. #EndRegion
   
9. #EndRegion
   
10. Dim $INIPATH, $SECTION, $SETUP, $GHOST32PATH, $NAME, $FILE, $GHOSTR, $GHONAME, $FLAG, $DISK, $COUNT, $IDE, $I, $IDEUSB, $DRIVE, $CDROM, $DRV, $FLAGR, $GHOST32STR, $GHOST32NAME
    
11. $INIPATH = StringMid(@ScriptFullPath, 1, StringLen(@ScriptFullPath) - 3) & 'ini'
    
12. If Not FileExists($INIPATH) Then
    
13.         MsgBox(16, '错误', '未发现同名配置文件！程序不能运行')
    
14.         Exit
    
15. EndIf
    
16. If $CMDLINE[0] = 0 Then
    
17.         $SECTION = 'setup'
    
18. Else
    
19.         $SETUP = $CMDLINE[1]
    
20.         $SECTION = StringTrimLeft($SETUP, 1)
    
21. EndIf
    
22. $GHOST32PATH = IniRead($INIPATH, 'ghost32', 'ghost32path', '')
    
23. $GHOST32STR = StringSplit($GHOST32PATH, '\')
    
24. $GHOST32NAME = $GHOST32STR[$GHOST32STR[0]]
    
25. $NAME = IniRead($INIPATH, $SECTION, 'name', '')
    
26. $FILE = IniRead($INIPATH, $SECTION, 'ghofile', '')
    
27. $GHOSTR = StringSplit($FILE, '\')
    
28. $GHONAME = $GHOSTR[$GHOSTR[0]]
    
29. $INIPATH = StringMid(@ScriptFullPath, 1, StringLen(@ScriptFullPath) - 3) & 'ini'
    
30. If $GHOST32PATH = '' Then
    
31.         MsgBox(16, '错误', '配置文件没指定GHOST主程序的路径')
    
32.         Exit
    
33. ElseIf $NAME = '' Then
    
34.         $NAME = '(未命名系统)'
    
35. ElseIf $FILE = '' Then
    
36.         MsgBox(16, '错误', '配置文件没指定XP镜像的文件名')
    
37.         Exit
    
38. EndIf
    
39. $FLAG = MsgBox(1, '系统安装', @CRLF & '本操作将删除原C盘数据，请确认硬盘已分区并备份好了原C盘数据！' & @CRLF & @CRLF & @TAB & '确认要安装' & $NAME & '到C盘吗？')
    
40. If $FLAG = 2 Then
    
41.         Exit
    
42. EndIf
    
43. $DISK = 'HKLM\SYSTEM\CurrentControlSet\Services\Disk\Enum\'
    
44. $COUNT = RegRead($DISK, 'Count')
    
45. If $COUNT < 1 Then
    
46.         MsgBox(16, '错误', '系统中没有安装硬盘或PE不能识别该硬盘,程序不能进行')
    
47.         Exit
    
48. Else
    
49.         $IDE = False
    
50.         For $I = 0 To $COUNT - 1
    
51.                 $IDEUSB = StringLeft(RegRead($DISK, $I), 3)
    
52.                 If $IDEUSB <> 'USB' Then
    
53.                         $IDE = $I + 1
    
54.                         ExitLoop
    
55.                 EndIf
    
56.         Next
    
57.         If $IDE = False Then
    
58.                 MsgBox(16, '错误', '系统中没有IDE硬盘或PE不能识别该硬盘,程序不能进行')
    
59.                 Exit
    
60.         EndIf
    
61.         For $I = 90 To 67 Step -1
    
62.                 $DRIVE = Chr($I)
    
63.                 If FileExists($DRIVE & ':' & $FILE) Then
    
64.                         $CDROM = $DRIVE & ':'
    
65.                         ExitLoop
    
66.                 EndIf
    
67.         Next
    
68.         For $I = 65 To 90
    
69.                 $DRIVE = Chr($I)
    
70.                 If FileExists($DRIVE & ':' & $GHOST32PATH) Then
    
71.                         $DRV = $DRIVE & ':'
    
72.                         ExitLoop
    
73.                 EndIf
    
74.         Next
    
75.         If FileExists($CDROM) Then
    
76.                 If FileExists($DRV) Then
    
77.                         ToolTip(@CR & '  正在执行恢复' & $NAME & '到C盘，请稍候...   ' & @CR, @DesktopWidth - 380, @DesktopHeight - 120)
    
78.                         Run($DRV & $GHOST32PATH & ' -nousb -clone,mode=pload,src=' & $CDROM & $FILE & ':1,dst=' & $IDE & ':1 -crcignore -sure -fx')
    
79.                         ProcessWaitClose($GHOST32NAME)
    
80.                         ToolTip('')
    
81.                         $FLAGR = MsgBox(1, '系统安装', @CRLF & '系统文件复制完成，5秒后系统自动重启完成安装', 5)
    
82.                         If $FLAGR = 2 Then
    
83.                                 Exit
    
84.                         EndIf
    
85.                         Run(@ComSpec & ' /c ' & 'pecmd shut r', '', @SW_HIDE)
    
86.                 Else
    
87.                         MsgBox(16, '错误', '未发现配置文件指定的GHOST主程序')
    
88.                         Exit
    
89.                 EndIf
    
90.         Else
    
91.                 MsgBox(16, '错误', '未发现' & $GHONAME & '镜像文件!')
    
92.                 Exit
    
93.         EndIf
    
94. EndIf
    
95. 
    
96. 
    

复制代码