Windows installer 2.0 (C++ port)
This commit is contained in:
paravis committed
commit
45967534aa
32 files changed
+1768
No files matched your search
@@ -0,0 +1,249 @@
|
||||
#NoTrayIcon
|
||||
#include <Array.au3>
|
||||
#include <File.au3>
|
||||
#include <GUIConstantsEx.au3>
|
||||
#include <WindowsConstants.au3>
|
||||
#include <WinAPI.au3>
|
||||
#include <AutoItConstants.au3>
|
||||
|
||||
Global $aArray = DriveGetDrive($DT_ALL), $sDisk, $iBtn11, $iBtn10, $iBtn7, $PathEr, $sDiskS, $UN11, $UN10x64, $UN10x86, $UN7x64, $UN7x86
|
||||
Global $bFontOk = False, $font = "Segoe UI", $hBg
|
||||
|
||||
_LoadFonts()
|
||||
$font = _Font()
|
||||
_ShowWallpaper()
|
||||
|
||||
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", "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 _LoadFonts()
|
||||
Local $reg = @TempDir & "\Montserrat-Regular.ttf"
|
||||
Local $bold = @TempDir & "\Montserrat-Bold.ttf"
|
||||
FileInstall("assets\Montserrat-Regular.ttf", $reg, 1)
|
||||
FileInstall("assets\Montserrat-Bold.ttf", $bold, 1)
|
||||
Local $r1 = DllCall("gdi32.dll", "int", "AddFontResourceExW", "wstr", $reg, "dword", 0x10, "ptr", 0)
|
||||
Local $r2 = DllCall("gdi32.dll", "int", "AddFontResourceExW", "wstr", $bold, "dword", 0x10, "ptr", 0)
|
||||
If IsArray($r1) And IsArray($r2) Then
|
||||
If $r1[0] > 0 Or $r2[0] > 0 Then $bFontOk = True
|
||||
EndIf
|
||||
EndFunc
|
||||
|
||||
Func _Font()
|
||||
If $bFontOk Then Return "Montserrat"
|
||||
Return "Segoe UI"
|
||||
EndFunc
|
||||
|
||||
Func _ShowWallpaper()
|
||||
Local $bg = @TempDir & "\paravis_wallpaper.bmp"
|
||||
FileInstall("assets\wallpaper-install.bmp", $bg, 1)
|
||||
$hBg = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)
|
||||
GUICtrlCreatePic($bg, 0, 0, @DesktopWidth, @DesktopHeight)
|
||||
GUISetState(@SW_SHOW, $hBg)
|
||||
EndFunc
|
||||
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)
|
||||
WinSetOnTop($hGUI, "", 1)
|
||||
$iBtn10 = GUICtrlCreateButton("Установить Windows 10", 5, 5, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
$iBtn7 = GUICtrlCreateButton("Установить Windows 7", 5, 45, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
$iBtnTC = GUICtrlCreateButton("Total Commander", 5, 105, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
$iBtnR = GUICtrlCreateButton("Перезагрузка", 5, 145, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
GUISetState()
|
||||
_checkesd86()
|
||||
While 1
|
||||
Switch GUIGetMsg()
|
||||
Case $GUI_EVENT_CLOSE
|
||||
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 & '\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)
|
||||
WinSetOnTop($hGUI, "", 1)
|
||||
$iBtn10 = GUICtrlCreateButton("Установить Windows 10", 5, 5, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
$iBtnTC = GUICtrlCreateButton("Total Commander", 5, 65, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
$iBtnR = GUICtrlCreateButton("Перезагрузка", 5, 105, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
GUISetState()
|
||||
While 1
|
||||
Switch GUIGetMsg()
|
||||
Case $GUI_EVENT_CLOSE
|
||||
Case $iBtn10
|
||||
GUISetState(@SW_HIDE)
|
||||
RunWait($setup & $ESD10x86 & $OEM10x86 & $UN10x86)
|
||||
GUISetState(@SW_SHOW)
|
||||
Case $iBtnTC
|
||||
GUISetState(@SW_HIDE)
|
||||
RunWait($sDiskS & '\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)
|
||||
WinSetOnTop($hGUI, "", 1)
|
||||
$iBtn11 = GUICtrlCreateButton("Установить Windows 11", 5, 5, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
$iBtn10 = GUICtrlCreateButton("Установить Windows 10", 5, 45, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
$iBtn7 = GUICtrlCreateButton("Установить Windows 7", 5, 85, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
$iBtnTC = GUICtrlCreateButton("Total Commander", 5, 145, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
$iBtnR = GUICtrlCreateButton("Перезагрузка", 5, 185, 350, 40)
|
||||
GUICtrlSetFont(-1, 13, 500, 0, $font)
|
||||
GUISetState()
|
||||
_checkesd64()
|
||||
While 1
|
||||
Switch GUIGetMsg()
|
||||
Case $GUI_EVENT_CLOSE
|
||||
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 & '\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
|
||||
Reference in new issue
Block a user