installer, script names etc.pp

boot/autounattend_BIOS.xml

@@ -4,12 +4,12 @@
     <settings pass="windowsPE">
         <component name="Microsoft-Windows-International-Core-WinPE" processorArchitecture="amd64" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
             <SetupUILanguage>
-                <UILanguage>de-DE</UILanguage>
+                <UILanguage>en-US</UILanguage>
             </SetupUILanguage>
             <InputLocale>de-DE</InputLocale>
             <SystemLocale>de-DE</SystemLocale>
             <UILanguage>en-US</UILanguage>
-            <UserLocale>en-US</UserLocale>
+            <UserLocale>de-DE</UserLocale>
         </component>
         <component name="Microsoft-Windows-Setup" processorArchitecture="amd64" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
             <DiskConfiguration>
@@ -85,7 +85,7 @@
     <settings pass="oobeSystem">
         <component name="Microsoft-Windows-International-Core" processorArchitecture="amd64" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
             <InputLocale>de-DE</InputLocale>
-            <SystemLocale>en-US</SystemLocale>
+            <SystemLocale>de-DE</SystemLocale>
             <UILanguage>en-US</UILanguage>
             <UserLocale>de-DE</UserLocale>
         </component>

boot/autounattend_UEFI.xml

@@ -4,12 +4,12 @@
     <settings pass="windowsPE">
         <component name="Microsoft-Windows-International-Core-WinPE" processorArchitecture="amd64" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
             <SetupUILanguage>
-                <UILanguage>de-DE</UILanguage>
+                <UILanguage>en-US</UILanguage>
             </SetupUILanguage>
             <InputLocale>de-DE</InputLocale>
             <SystemLocale>de-DE</SystemLocale>
             <UILanguage>en-US</UILanguage>
-            <UserLocale>en-US</UserLocale>
+            <UserLocale>de-DE</UserLocale>
         </component>
         <component name="Microsoft-Windows-Setup" processorArchitecture="amd64" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
             <DiskConfiguration>
@@ -105,7 +105,7 @@
     <settings pass="oobeSystem">
         <component name="Microsoft-Windows-International-Core" processorArchitecture="amd64" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
             <InputLocale>de-DE</InputLocale>
-            <SystemLocale>en-US</SystemLocale>
+            <SystemLocale>de-DE</SystemLocale>
             <UILanguage>en-US</UILanguage>
             <UserLocale>de-DE</UserLocale>
         </component>

settings.cmd

@@ -0,0 +1,2 @@
+set LANG=de-DE
+

source/installer.pb

@@ -4,27 +4,26 @@
 ; LICENSE  : GPL
 ; AUTHOR   : Michael H.G. Schmidt
 ; EMAIL    : michael@schmidt2.de
-; DATE     : 20210317
+; DATE     : 20210320
 ; ------------------------------------------------------------
 ;
 
-; preparations to use native "system" command...
+; preparations to use native "system" command ...
 ImportC "msvcrt.lib"
   system(str.p-ascii)
 EndImport
 
-; open window to hide all other windows on dekstop ...
+; Get system drive
-OpenWindow(0, 0, 0, 0, 0, "", #PB_Window_BorderLess | #PB_Window_Maximize)
+SYS$=GetEnvironmentVariable("SystemDrive")
 
-; set colour to windows blue ...
+Procedure StartInstallation()
-SetWindowColor(0, RGB($00,$a2,$ed)) 
   
-Result = MessageRequester("+++ Windows 10 unattended Installation +++",
+  Result = MessageRequester("+++ Windows 10 unattended Installation +++",
                             "This will install a new OS (unattended)" + Chr(13) +
                             "and it will DELETE all DATA an your [ C: ] Drive!",
                             #PB_MessageRequester_YesNo | #PB_MessageRequester_Info)
   
-If Result = #PB_MessageRequester_Yes
+  If Result = #PB_MessageRequester_Yes
     
     Result = MessageRequester("Caution !",
                               "LAST WARNING:" + Chr(13) + 
@@ -33,26 +32,106 @@ If Result = #PB_MessageRequester_Yes
     
     ; start installation ...
     If Result = #PB_MessageRequester_Yes
-    dummy=system("x:\winsetup.exe")
+      dummy=system(SYS$ + "\winsetup.exe")
       End 0
     EndIf
     
-EndIf
+  EndIf
     
-; show abort message ...
+  ; new fullscreen window with red colour ...
-OpenWindow(1, 0, 0, 270, 70, "Installation ABORTED",
+  OpenWindow(10, 0, 0, 0, 0, "", #PB_Window_BorderLess | #PB_Window_Maximize)
-           #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
+  SetWindowColor(10, RGB($FF,$00,$00))
   
-If LoadFont(0, "System", 10)
+  ; kill main window ...
-  SetGadgetFont(#PB_Default, FontID(0))
+  CloseWindow(0)
-EndIf
   
-TextGadget(0, 0, 20, 270, 30, "Please POWEROFF your system now!", #PB_Text_Center)
+  MessageRequester("END.","Press OK to shutdown your system.",#PB_MessageRequester_Info)
     
-; wait forever (window cannot be closed by user) ...
+  End
-Repeat : Until WaitWindowEvent() = True
+  
+EndProcedure
+
+
+Procedure StartCMD()
+  
+  ; start a command shell ...
+  dummy=system(SYS$ + "\windows\system32\cmd.exe /C start /D "+SYS$+"\ "+SYS$+"\windows\system32\cmd.exe /K wpeutil initializenetwork")
+  
+EndProcedure
+
+
+Procedure StartSnapshot64()
+  
+  ; start backup/restore program ...
+  dummy=system(SYS$ + "\windows\system32\cmd.exe /C start /D "+SYS$+"\ "+SYS$+"\snapshot64.exe")
+  
+EndProcedure
+
+
+; Button handler procedure
+Procedure ButtonHandler()
+  
+  Select EventGadget()
+      
+    Case 0
+      StartInstallation()
+    Case 1
+      StartCMD()
+    Case 2
+      StartSnapshot64()
+      
+  EndSelect
+
+EndProcedure
+
+
+;;;;;;;
+; MAIN
+;;;;;;;
+
+; open window to hide all other windows on desktop ...
+OpenWindow(0, 0, 0, 0, 0, "", #PB_Window_BorderLess | #PB_Window_Maximize)
+ 
+; set colour to windows blue ...
+SetWindowColor(0, RGB($00,$a2,$ed)) 
+
+; Get window size
+W = WindowWidth(0)
+H = WindowHeight(0)
+
+; Shrink factor for buttons
+S=0.1
+
+; X and Y root
+X0=W/2-(W*S/2)
+Y0=H/2-(W*S/2)
+
+; calculations for buttons
+ButtonH=H*0.1
+ButtonW=W*0.1
+GAP=ButtonW*0.1
+
+BX1=W/3
+BX2=BX1 + ButtonW + GAP
+BX3=BX2 + ButtonW + GAP
+
+BY=H/2-ButtonH/2
+
+; Create Buttons
+ButtonGadget(0, BX1, BY, ButtonW, ButtonH, "INSTALL system", #PB_Button_MultiLine)
+BindGadgetEvent(0, @ButtonHandler())
+
+ButtonGadget(1, BX2, BY, ButtonW, ButtonH, "COMMAND shell"+Chr(13)+"(with network)", #PB_Button_MultiLine)
+BindGadgetEvent(1, @ButtonHandler())
+
+ButtonGadget(2, BX3, BY, ButtonW, ButtonH, "Snapshot 64"+Chr(13)+"(Backup/Restore)", #PB_Button_MultiLine)
+BindGadgetEvent(2, @ButtonHandler())
+
+; MAIN LOOP
+Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
 
 ; IDE Options = PureBasic 5.73 LTS (Windows - x64)
-; CursorPosition = 32
+; CursorPosition = 118
-; FirstLine = 8
+; FirstLine = 86
+; Folding = -
 ; EnableXP

wim/finish-boot.cmd

@@ -2,14 +2,28 @@
 set SOURCES=c:\TEMP\W10\sources
 set BOOT=c:\TEMP\BOOT
 
+if EXIST ..\settings.cmd (
+  call ..\settings.cmd
+) else (
+  set LANG=en-US
+)
+echo LANG=%LANG%
+
 if NOT EXIST %BOOT%\winsetup.exe (
   echo renaming Windows setup.exe to boot ...
   move /Y %BOOT%\setup.exe %BOOT%\winsetup.exe
 )
 
+echo setting language in boot ...
+dism /image:%BOOT% /Set-InputLocale:%LANG%
+dism /image:%BOOT% /Set-SysLocale:%LANG%
+
 echo replacing setup.exe with our installer utility ...
 copy /Y installer.exe %BOOT%\setup.exe
 
+echo copy snapshot64 to boot ...
+copy /Y  ..\software\snapshot64.exe %BOOT%
+
 echo showing boot contents ...
 dir %BOOT%
 

wim/recompile.installer.cmd

@@ -0,0 +1,15 @@
+@echo off
+
+rem remount boot image and recompile installer ...
+
+del /F installer.exe 1>nul 2>nul
+echo +++++++++++++++++++++++++++++++++++
+call pbc.cmd ..\source\installer.pb
+echo +++++++++++++++++++++++++++++++++++
+call umount-all.cmd
+echo +++++++++++++++++++++++++++++++++++
+call mount-boot.cmd
+echo +++++++++++++++++++++++++++++++++++
+call finish-boot.cmd
+echo +++++++++++++++++++++++++++++++++++
+