53 lines
1.7 KiB
Plaintext
53 lines
1.7 KiB
Plaintext
; installwarning.pb
|
|
; ------------------------------------------------------------
|
|
; shows a warning when starting the install process
|
|
; LICENSE : GPL
|
|
; AUTHOR : Michael H.G. Schmidt
|
|
; EMAIL : michael@schmidt2.de
|
|
; DATE : 20210315
|
|
; ------------------------------------------------------------
|
|
;
|
|
|
|
dummy$ = ""
|
|
|
|
; preparations to use native "system" command...
|
|
ImportC "msvcrt.lib"
|
|
system(str.p-ascii)
|
|
EndImport
|
|
|
|
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
|
|
|
|
Result = MessageRequester("Caution !",
|
|
"LAST WARNING:" + Chr(13) +
|
|
"REALLY DELETE ALL Data on DRIVE [ C: ] ?",
|
|
#PB_MessageRequester_YesNo | #PB_MessageRequester_Warning)
|
|
|
|
; start installation ...
|
|
If Result = #PB_MessageRequester_Yes
|
|
dummy=system("x:\winsetup.exe")
|
|
End 0
|
|
EndIf
|
|
|
|
EndIf
|
|
|
|
; show abort message ...
|
|
OpenWindow(0, 0, 0, 270, 70, "Installation ABORTED",
|
|
#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
|
|
|
|
If LoadFont(0, "System", 10)
|
|
SetGadgetFont(#PB_Default, FontID(0))
|
|
EndIf
|
|
|
|
TextGadget(0, 0, 20, 270, 30, "Please POWEROFF your system now!", #PB_Text_Center)
|
|
|
|
; wait forever (window cannot be closed by user) ...
|
|
Repeat : Until WaitWindowEvent() = True
|
|
|
|
; IDE Options = PureBasic 5.73 LTS (Windows - x64)
|
|
; CursorPosition = 32
|
|
; EnableXP |