无忧启动论坛

标题: 请教在PE中快速分四区和快速安装系统如何设置？ [打印本页]
作者: akzpxww    时间: 2009-8-11 10:26
提示: 作者被禁止或删除 内容自动屏蔽
作者: 孤独的幽灵    时间: 2009-8-11 14:01
用Ghost手动选择不好吗？？？？？
作者: bsplin    时间: 2011-1-19 11:12
ghost.rar (228.27 KB, 下载次数: 408)

试试这个工具，很不错的！
作者: 快雪时晴    时间: 2011-1-19 17:59
标题: 回复 #3 bsplin 的帖子
THIS IS WHAT YOU WANT

  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


复制代码




欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3