You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
232 lines
7.6 KiB
232 lines
7.6 KiB
#include <Array.au3> |
|
#include <File.au3> |
|
#include <GUIConstantsEx.au3> |
|
#include <WindowsConstants.au3> |
|
#include <WinAPI.au3> |
|
#NoTrayIcon |
|
|
|
Global $aArray = DriveGetDrive($DT_ALL), $sDisk, $iBtn11, $iBtn10, $iBtn7, $PathEr, $sDisk, $sDiskS, $UN11, $UN10x64, $UN10x86, $UN7x64, $UN7x86 |
|
|
|
For $i = 1 To $aArray[0] |
|
$aFileList = _FileListToArrayRec($aArray[$i] & "\WindowsESD", "NOT.DEL", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_NOSORT, $FLTAR_FULLPATH) |
|
If Not @error Then |
|
$sDisk = $aArray[$i] & "\WindowsESD\" |
|
$PathEr = 1 |
|
ExitLoop |
|
EndIf |
|
Next |
|
|
|
For $i = 1 To $aArray[0] |
|
$aFileList = _FileListToArrayRec($aArray[$i] & "\efi\Paravis\Windows", "NOT.DEL", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_NOSORT, $FLTAR_FULLPATH) |
|
If Not @error Then |
|
$sDisk = $aArray[$i] & "\efi\Paravis\Windows\" |
|
$PathEr += 1 |
|
ExitLoop |
|
EndIf |
|
Next |
|
|
|
If $PathEr > 1 Then |
|
MsgBox(48, 'Предупреждение!', 'В системе больше одной папки с образами. Проверьте и удалите лишние (читаем ReadMe.txt). Система будет перезагружена.') |
|
Exit |
|
EndIf |
|
|
|
For $i = 1 To $aArray[0] |
|
$aFileList = _FileListToArrayRec($aArray[$i] & "\efi\Paravis\Boot\kitchen", "NOT.DEL", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_NOSORT, $FLTAR_FULLPATH) |
|
If Not @error Then |
|
$sDiskS = $aArray[$i] & "\efi\Paravis\Boot\" |
|
ExitLoop |
|
EndIf |
|
Next |
|
|
|
$ESD11 = $sDisk & "install_11.esd" |
|
$ESD10x64 = $sDisk & "install_10_x64.esd" |
|
$ESD10x86 = $sDisk & "install_10_x86.esd" |
|
$ESD7x64 = $sDisk & "install_7_x64.esd" |
|
$ESD7x86 = $sDisk & "install_7_x86.esd" |
|
If FileExists ($sDisk & "autounattend\unattend11.xml") Then |
|
$UN11 = " /unattend:" & $sDisk & "autounattend\unattend11.xml" |
|
Else |
|
$UN11 = '' |
|
EndIf |
|
If FileExists ($sDisk & "autounattend\unattend10x64.xml") Then |
|
$UN10x64 = " /unattend:" & $sDisk & "autounattend\unattend10x64.xml" |
|
Else |
|
$UN10x64 = '' |
|
EndIf |
|
If FileExists ($sDisk & "autounattend\unattend10x86.xml") Then |
|
$UN10x86 = " /unattend:" & $sDisk & "autounattend\unattend10x86.xml" |
|
Else |
|
$UN10x86 = '' |
|
EndIf |
|
If FileExists ($sDisk & "autounattend\unattend7x64.xml") Then |
|
$UN7x64 = " /unattend:" & $sDisk & "autounattend\unattend7x64.xml" |
|
Else |
|
$UN7x64 = '' |
|
EndIf |
|
If FileExists ($sDisk & "autounattend\unattend7x86.xml") Then |
|
$UN7x86 = " /unattend:" & $sDisk & "autounattend\unattend7x86.xml" |
|
Else |
|
$UN7x86 = '' |
|
EndIf |
|
$OEM11 = " /m:" & $sDisk & "$OEM11$" |
|
$OEM10x64 = " /m:" & $sDisk & "$OEM10x64$" |
|
$OEM10x86 = " /m:" & $sDisk & "$OEM10x86$" |
|
$OEM7x64 = " /m:" & $sDisk & "$OEM7x64$" |
|
$OEM7x86 = " /m:" & $sDisk & "$OEM7x86$" |
|
$setup = "X:\sources\setup.exe /installfrom:" |
|
|
|
|
|
If FileExists(@WindowsDir & "\SYSWOW64") Then |
|
RunWait($sDiskS & "src_x64.exe auto2") |
|
_x64() |
|
Else |
|
RunWait($sDiskS & "src_x86.exe auto2") |
|
_x86() |
|
EndIf |
|
|
|
Func _x86() |
|
$detect_efi = EnvGet("firmware_type") |
|
If $detect_efi = "Legacy" Then |
|
$hGUI = GUICreate("Windows Setup by Paravis", 410, 250, -1, -1, $WS_POPUP, $WS_EX_LAYERED) |
|
GUISetBkColor(0xABCDEF) |
|
GUICtrlSetState(-1, $GUI_DISABLE) |
|
GUISetState() |
|
_WinAPI_SetLayeredWindowAttributes($hGUI, 0xABCDEF, 255) |
|
$font = "Segoe UI" |
|
$iBtn10 = GUICtrlCreateButton("Установить Windows 10", 5, 5, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
$iBtn7 = GUICtrlCreateButton("Установить Windows 7", 5, 45, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
$iBtnTC = GUICtrlCreateButton("Запустить Total Commander", 5, 105, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
$iBtnR = GUICtrlCreateButton("Перезагрузка", 5, 145, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
GUISetState() |
|
|
|
_checkesd86() |
|
|
|
While 1 |
|
Switch GUIGetMsg() |
|
Case $GUI_EVENT_CLOSE |
|
;~ exit |
|
Case $iBtn10 |
|
GUISetState(@SW_HIDE) |
|
RunWait($setup & $ESD10x86 & $OEM10x86 & $UN10x86) |
|
GUISetState(@SW_SHOW) |
|
Case $iBtn7 |
|
GUISetState(@SW_HIDE) |
|
RunWait($setup & $ESD7x86 & $OEM7x86 & $UN7x86) |
|
GUISetState(@SW_SHOW) |
|
Case $iBtnTC |
|
GUISetState(@SW_HIDE) |
|
RunWait($sDiskS & 'kitchen\TotalCommander\TOTALCMD.EXE /I="%%COMMANDER_PATH%%\tcmdmain.ini"') |
|
GUISetState(@SW_SHOW) |
|
Case $iBtnR |
|
Exit |
|
EndSwitch |
|
WEnd |
|
Else |
|
If Not FileExists($sDisk & "install_10_x86.esd") Then |
|
MsgBox(48, 'Предупреждение!', 'Не найден образ Windows 10 x86. Система будет перезагружена.') |
|
Exit |
|
EndIf |
|
$hGUI = GUICreate("Windows Setup by Paravis", 360, 190, -1, -1, $WS_POPUP, $WS_EX_LAYERED) |
|
GUISetBkColor(0xABCDEF) |
|
GUICtrlSetState(-1, $GUI_DISABLE) |
|
GUISetState() |
|
_WinAPI_SetLayeredWindowAttributes($hGUI, 0xABCDEF, 255) |
|
$font = "Segoe UI" |
|
$iBtn10 = GUICtrlCreateButton("Установить Windows 10", 5, 5, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
$iBtnTC = GUICtrlCreateButton("Запустить Total Commander", 5, 65, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
$iBtnR = GUICtrlCreateButton("Перезагрузка", 5, 105, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
GUISetState() |
|
|
|
While 1 |
|
Switch GUIGetMsg() |
|
Case $GUI_EVENT_CLOSE |
|
;~ exit |
|
Case $iBtn10 |
|
GUISetState(@SW_HIDE) |
|
RunWait($setup & $ESD10x86 & $OEM10x86 & $UN10x86) |
|
GUISetState(@SW_SHOW) |
|
Case $iBtnTC |
|
GUISetState(@SW_HIDE) |
|
RunWait($sDiskS & 'kitchen\TotalCommander\TOTALCMD.EXE /I="%%COMMANDER_PATH%%\tcmdmain.ini"') |
|
GUISetState(@SW_SHOW) |
|
Case $iBtnR |
|
Exit |
|
EndSwitch |
|
WEnd |
|
EndIf |
|
EndFunc |
|
|
|
Func _x64() |
|
$hGUI = GUICreate("Windows Setup by Paravis", 410, 250, -1, -1, $WS_POPUP, $WS_EX_LAYERED) |
|
GUISetBkColor(0xABCDEF) |
|
GUICtrlSetState(-1, $GUI_DISABLE) |
|
GUISetState() |
|
_WinAPI_SetLayeredWindowAttributes($hGUI, 0xABCDEF, 255) |
|
$font = "Segoe UI" |
|
$iBtn11 = GUICtrlCreateButton("Установить Windows 11", 5, 5, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
$iBtn10 = GUICtrlCreateButton("Установить Windows 10", 5, 45, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
$iBtn7 = GUICtrlCreateButton("Установить Windows 7", 5, 85, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
$iBtnTC = GUICtrlCreateButton("Запустить Total Commander", 5, 145, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
$iBtnR = GUICtrlCreateButton("Перезагрузка", 5, 185, 350, 40) |
|
GUICtrlSetFont(-1, 16, 500, 0, $font) |
|
GUISetState() |
|
|
|
_checkesd64() |
|
|
|
While 1 |
|
Switch GUIGetMsg() |
|
Case $GUI_EVENT_CLOSE |
|
;~ exit |
|
Case $iBtn11 |
|
GUISetState(@SW_HIDE) |
|
RunWait($setup & $ESD11 & $OEM11 & $UN11) |
|
GUISetState(@SW_SHOW) |
|
Case $iBtn10 |
|
GUISetState(@SW_HIDE) |
|
RunWait($setup & $ESD10x64 & $OEM10x64 & $UN10x64) |
|
GUISetState(@SW_SHOW) |
|
Case $iBtn7 |
|
GUISetState(@SW_HIDE) |
|
RunWait($setup & $ESD7x64 & $OEM7x64 & $UN7x64) |
|
GUISetState(@SW_SHOW) |
|
Case $iBtnTC |
|
GUISetState(@SW_HIDE) |
|
RunWait($sDiskS & 'kitchen\TotalCommander\TOTALCMD64.EXE /I="%%COMMANDER_PATH%%\tcmdmain.ini"') |
|
GUISetState(@SW_SHOW) |
|
Case $iBtnR |
|
Exit |
|
EndSwitch |
|
WEnd |
|
EndFunc |
|
|
|
Func _checkesd64() |
|
If Not FileExists($sDisk & "install_11.esd") Then |
|
GUICtrlSetState($iBtn11, $GUI_DISABLE) |
|
EndIf |
|
If Not FileExists($sDisk & "install_10_x64.esd") Then |
|
GUICtrlSetState($iBtn10, $GUI_DISABLE) |
|
EndIf |
|
If Not FileExists($sDisk & "install_7_x64.esd") Then |
|
GUICtrlSetState($iBtn7, $GUI_DISABLE) |
|
EndIf |
|
EndFunc |
|
|
|
Func _checkesd86() |
|
If Not FileExists($sDisk & "install_10_x86.esd") Then |
|
GUICtrlSetState($iBtn10, $GUI_DISABLE) |
|
EndIf |
|
If Not FileExists($sDisk & "install_7_x86.esd") Then |
|
GUICtrlSetState($iBtn7, $GUI_DISABLE) |
|
EndIf |
|
EndFunc |