#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\program files\autoit3\koda\forms\form2.kxf
$Form1_1 = GUICreate("Windows 7 Ultimate SP1 (32-bit)", 348, 260, -1, -1, $WS_MINIMIZEBOX)
$Group1 = GUICtrlCreateGroup(" Установка Windows 7 Ultimate ", 8, 8, 326, 90)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
$Button1 = GUICtrlCreateButton("Установка Windows 7 Ultimate (стандартная)", 16, 32, 310, 25)
GUICtrlSetTip(-1, "Начать установку Windows 7 Ultimate (32-bit). Почти все параметры устанавливаются вручную.")
$Button2 = GUICtrlCreateButton("Установка Windows 7 Ultimate (автоматическая)", 16, 65, 310, 25)
GUICtrlSetTip(-1, "Начать установку Windows 7 Ultimate (32-bit). Все параметры устанавливаются автоматически (кроме разметки диска).")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" Восстановлениие системы ", 8, 106, 326, 57)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
$Button3 = GUICtrlCreateButton("Запуск восстановления системы", 16, 130, 310, 25)
GUICtrlSetTip(-1, "Запустить среду восстановления Windows 7 (32-bit).")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup(" Завершение работы ", 8, 168, 326, 57)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
$Button4 = GUICtrlCreateButton("Выключение", 16, 192, 151, 25)
GUICtrlSetTip(-1, "Завершение программы и выключение системы.")
$Button5 = GUICtrlCreateButton("Перезагрузка", 175, 192, 151, 25)
GUICtrlSetTip(-1, "Завершение программы и перезагрузка системы.")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Определение буквы диска, маркер - какой-нибудь файл или каталог, который будет присутствовать на любом установочном DVD, можно заменить на \sources\install.wim или что там ещё есть уникального
$i = 67
While FileExists(Chr($i) & ':\sources\install.wim') = 0 AND $i <= 90
$i = $i + 1
WEnd
While 1
Switch GUIGetMsg()
Case $button1
Run(Chr($i) & ':\sources\setup.exe /unattend:' & @ScriptDir & '\Scripts\Auto\Manual.xml')
Exit
Case $button2
Run(Chr($i) & ':\sources\setup.exe /unattend:' & @ScriptDir & '\Scripts\Auto\Unattend.xml')
Exit
Case $button3
WinSetState($Form1_1, '', @SW_MINIMIZE)
RunWait(@ScriptDir & '\recovery\recenv.exe')
WinSetState($Form1_1, '', @SW_RESTORE)
Case $button4
Shutdown(9)
Case $button5
Shutdown(2)
Exit
EndSwitch
WEnd
|
