Make it so CompressMethod doesnt have to be in the initial header, rename the header from TSetupMainHeader to TSetupEncryptionHeader, and move PasswordTest to a more logical place.

Projects/SetupLdr.dpr

@@ -79,7 +79,7 @@ var
   InitLang, InitPassword: String;
   ActiveLanguage: Integer = -1;
   PendingNewLanguage: Integer = -1;
-  SetupMainHeader: TSetupMainHeader;
+  SetupEncryptionHeader: TSetupEncryptionHeader;
   SetupHeader: TSetupHeader;
   LanguageEntries: PLanguageEntryArray;
   LanguageEntryCount: Integer;
@@ -410,18 +410,18 @@ begin
       if TestID <> SetupID then
         SetupCorruptError;
 
-      var SetupMainHeaderCRC: Longint;
-      SourceF.Read(SetupMainHeaderCRC, SizeOf(SetupMainHeaderCRC));
-      SourceF.Read(SetupMainHeader, SizeOf(SetupMainHeader));
-      if SetupMainHeaderCRC <> GetCRC32(SetupMainHeader, SizeOf(SetupMainHeader)) then
+      var SetupEncryptionHeaderCRC: Longint;
+      SourceF.Read(SetupEncryptionHeaderCRC, SizeOf(SetupEncryptionHeaderCRC));
+      SourceF.Read(SetupEncryptionHeader, SizeOf(SetupEncryptionHeader));
+      if SetupEncryptionHeaderCRC <> GetCRC32(SetupEncryptionHeader, SizeOf(SetupEncryptionHeader)) then
          SetupCorruptError;
 
       var CryptKey: TSetupEncryptionKey;
-      if SetupMainHeader.EncryptionUse = euFull then begin
+      if SetupEncryptionHeader.EncryptionUse = euFull then begin
         var PasswordOk: Boolean;
         if InitPassword <> '' then begin
-          GenerateEncryptionKey(InitPassword, SetupMainHeader.EncryptionKDFSalt, SetupMainHeader.EncryptionKDFIterations, CryptKey);
-          PasswordOk := TestPassword(CryptKey, SetupMainHeader.EncryptionBaseNonce, SetupMainHeader.PasswordTest);
+          GenerateEncryptionKey(InitPassword, SetupEncryptionHeader.EncryptionKDFSalt, SetupEncryptionHeader.EncryptionKDFIterations, CryptKey);
+          PasswordOk := TestPassword(CryptKey, SetupEncryptionHeader.EncryptionBaseNonce, SetupEncryptionHeader.PasswordTest);
         end else
           PasswordOk := False;
         if not PasswordOk then
@@ -431,8 +431,8 @@ begin
       try
         Reader := TCompressedBlockReader.Create(SourceF, TLZMA1SmallDecompressor);
         try
-          if SetupMainHeader.EncryptionUse = euFull then
-            Reader.InitDecryption(CryptKey, SetupMainHeader.EncryptionBaseNonce, -2);
+          if SetupEncryptionHeader.EncryptionUse = euFull then
+            Reader.InitDecryption(CryptKey, SetupEncryptionHeader.EncryptionBaseNonce, -2);
 
           SECompressedBlockRead(Reader, SetupHeader, SizeOf(SetupHeader),
             SetupHeaderStrings, SetupHeaderAnsiStrings);

Projects/Src/Compiler.SetupCompiler.pas

@@ -127,7 +127,7 @@ type
     TouchTimeOption: (ttCurrent, ttNone, ttExplicit);
     TouchTimeHour, TouchTimeMinute, TouchTimeSecond: Integer;
 
-    SetupMainHeader: TSetupMainHeader;
+    SetupEncryptionHeader: TSetupEncryptionHeader;
     SetupHeader: TSetupHeader;
 
     SetupDirectiveLines: array[TSetupSectionDirective] of Integer;
@@ -632,7 +632,7 @@ end;
 
 function TSetupCompiler.GetEncryptionBaseNonce: TSetupEncryptionNonce;
 begin
-  Result := SetupMainHeader.EncryptionBaseNonce;
+  Result := SetupEncryptionHeader.EncryptionBaseNonce;
 end;
 
 function TSetupCompiler.GetExeFilename: String;
@@ -2838,20 +2838,20 @@ begin
       end;
     ssEncryption: begin
         if CompareText(Value, 'full') = 0 then
-          SetupMainHeader.EncryptionUse := euFull
+          SetupEncryptionHeader.EncryptionUse := euFull
         else if StrToBool(Value) then
-          SetupMainHeader.EncryptionUse := euFiles
+          SetupEncryptionHeader.EncryptionUse := euFiles
         else
-          SetupMainHeader.EncryptionUse := euNone;
+          SetupEncryptionHeader.EncryptionUse := euNone;
       end;
     ssEncryptionKeyDerivation: begin
         if Value = 'pbkdf2' then
-          SetupMainHeader.EncryptionKDFIterations := 200000
+          SetupEncryptionHeader.EncryptionKDFIterations := 200000
         else if Copy(Value, 1, 7) = 'pbkdf2/' then begin
           I := StrToIntDef(Copy(Value, 8, Maxint), -1);
           if I < 1 then
             Invalid;
-          SetupMainHeader.EncryptionKDFIterations := I;
+          SetupEncryptionHeader.EncryptionKDFIterations := I;
         end else
           Invalid;
       end;
@@ -5011,7 +5011,7 @@ type
         if NewFileLocationEntry = nil then begin
           NewFileLocationEntry := AllocMem(SizeOf(TSetupFileLocationEntry));
           NewFileLocationEntryExtraInfo := AllocMem(SizeOf(TFileLocationEntryExtraInfo));
-          SetupMainHeader.CompressMethod := CompressMethod;
+          SetupHeader.CompressMethod := CompressMethod;
           FileLocationEntries.Add(NewFileLocationEntry);
           FileLocationEntryExtraInfos.Add(NewFileLocationEntryExtraInfo);
           FileLocationEntryFilenames.Add(SourceFile);
@@ -5019,9 +5019,9 @@ type
           if NewFileEntry^.FileType = ftUninstExe then
             Include(NewFileLocationEntryExtraInfo^.Flags, floIsUninstExe);
           Inc6464(TotalBytesToCompress, FileListRec.Size);
-          if SetupMainHeader.CompressMethod <> cmStored then
+          if SetupHeader.CompressMethod <> cmStored then
             Include(NewFileLocationEntry^.Flags, floChunkCompressed);
-          if SetupMainHeader.EncryptionUse <> euNone then
+          if SetupEncryptionHeader.EncryptionUse <> euNone then
             Include(NewFileLocationEntry^.Flags, floChunkEncrypted);
           if SolidBreak and UseSolidCompression then begin
             Include(NewFileLocationEntryExtraInfo^.Flags, floSolidBreak);
@@ -6892,9 +6892,9 @@ var
     const StartPosition = F.Position;
 
     F.WriteBuffer(SetupID, SizeOf(SetupID));
-    const SetupMainHeaderCRC = GetCRC32(SetupMainHeader, SizeOf(SetupMainHeader));
-    F.WriteBuffer(SetupMainHeaderCRC, SizeOf(SetupMainHeaderCRC));
-    F.WriteBuffer(SetupMainHeader, SizeOf(SetupMainHeader));
+    const SetupEncryptionHeaderCRC = GetCRC32(SetupEncryptionHeader, SizeOf(SetupEncryptionHeader));
+    F.WriteBuffer(SetupEncryptionHeaderCRC, SizeOf(SetupEncryptionHeaderCRC));
+    F.WriteBuffer(SetupEncryptionHeader, SizeOf(SetupEncryptionHeader));
 
     SetupHeader.NumLanguageEntries := LanguageEntries.Count;
     SetupHeader.NumCustomMessageEntries := CustomMessageEntries.Count;
@@ -6921,8 +6921,8 @@ var
     W := TCompressedBlockWriter.Create(F, TLZMACompressor, InternalCompressLevel,
       InternalCompressProps);
     try
-      if SetupMainHeader.EncryptionUse = euFull then
-        W.InitEncryption(CryptKey, SetupMainHeader.EncryptionBaseNonce, -2);
+      if SetupEncryptionHeader.EncryptionUse = euFull then
+        W.InitEncryption(CryptKey, SetupEncryptionHeader.EncryptionBaseNonce, -2);
 
       SECompressedBlockWrite(W, SetupHeader, SizeOf(SetupHeader),
         SetupHeaderStrings, SetupHeaderAnsiStrings);
@@ -6982,7 +6982,7 @@ var
       W.Write(WizardSmallImages.Count, SizeOf(Integer));
       for J := 0 to WizardSmallImages.Count-1 do
         WriteStream(WizardSmallImages[J], W);
-      if SetupMainHeader.CompressMethod in [cmZip, cmBzip] then
+      if SetupHeader.CompressMethod in [cmZip, cmBzip] then
         WriteStream(DecompressorDLL, W);
       if SetupHeader.SevenZipLibraryName <> '' then
         WriteStream(SevenZipDLL, W);
@@ -7000,8 +7000,8 @@ var
       { ^ When disk spanning is enabled, the Setup Compiler requires that
         FileLocationEntries be a fixed size, so don't compress them }
     try
-      if SetupMainHeader.EncryptionUse = euFull then
-        W.InitEncryption(CryptKey, SetupMainHeader.EncryptionBaseNonce, -3);
+      if SetupEncryptionHeader.EncryptionUse = euFull then
+        W.InitEncryption(CryptKey, SetupEncryptionHeader.EncryptionBaseNonce, -3);
       for J := 0 to FileLocationEntries.Count-1 do
         W.Write(FileLocationEntries[J]^, SizeOf(TSetupFileLocationEntry));
       W.Finish;
@@ -7080,7 +7080,7 @@ var
       if not UseCompression then
         Result := TStoredCompressor
       else begin
-        case SetupMainHeader.CompressMethod of
+        case SetupHeader.CompressMethod of
           cmStored: begin
               Result := TStoredCompressor;
             end;
@@ -7144,7 +7144,7 @@ var
     HdrChecksum, ErrorCode: DWORD;
     ISSigAvailableKeys: TArrayOfECDSAKey;
   begin
-    if (SetupMainHeader.CompressMethod in [cmLZMA, cmLZMA2]) and
+    if (SetupHeader.CompressMethod in [cmLZMA, cmLZMA2]) and
        (CompressProps.WorkerProcessFilename <> '') then
       AddStatus(Format('   Using separate process for LZMA compression (%s)',
         [PathExtractName(CompressProps.WorkerProcessFilename)]));
@@ -7706,7 +7706,7 @@ begin
   SevenZipDLL := nil;
 
   try
-    FillChar(SetupMainHeader, SizeOf(SetupMainHeader), 0);
+    FillChar(SetupEncryptionHeader, SizeOf(SetupEncryptionHeader), 0);
     Finalize(SetupHeader);
     FillChar(SetupHeader, SizeOf(SetupHeader), 0);
     InitDebugInfo;
@@ -7775,7 +7775,7 @@ begin
     NotRecognizedMessagesWarning := True;
     UsedUserAreasWarning := True;
     SetupHeader.WizardStyle := wsClassic;
-    SetupMainHeader.EncryptionKDFIterations := 220000;
+    SetupEncryptionHeader.EncryptionKDFIterations := 220000;
 
     { Read [Setup] section }
     EnumIniSection(EnumSetupProc, 'Setup', 0, True, True, '', False, False);
@@ -7922,7 +7922,7 @@ begin
       else
         VersionInfoProductTextVersion := VersionInfoProductVersionOriginalValue;
     end;
-    if (SetupMainHeader.EncryptionUse <> euNone) and (Password = '') then begin
+    if (SetupEncryptionHeader.EncryptionUse <> euNone) and (Password = '') then begin
       LineNumber := SetupDirectiveLines[ssEncryption];
       AbortCompileFmt(SCompilerEntryMissing2, ['Setup', 'Password']);
     end;
@@ -7993,10 +7993,10 @@ begin
     end;
 
     if Password <> '' then begin
-      GenerateEncryptionKDFSalt(SetupMainHeader.EncryptionKDFSalt);
-      GenerateEncryptionKey(Password,  SetupMainHeader.EncryptionKDFSalt, SetupMainHeader.EncryptionKDFIterations, CryptKey);
-      GenerateEncryptionBaseNonce(SetupMainHeader.EncryptionBaseNonce);
-      GeneratePasswordTest(CryptKey, SetupMainHeader.EncryptionBaseNonce, SetupMainHeader.PasswordTest);
+      GenerateEncryptionKDFSalt(SetupEncryptionHeader.EncryptionKDFSalt);
+      GenerateEncryptionKey(Password,  SetupEncryptionHeader.EncryptionKDFSalt, SetupEncryptionHeader.EncryptionKDFIterations, CryptKey);
+      GenerateEncryptionBaseNonce(SetupEncryptionHeader.EncryptionBaseNonce);
+      GeneratePasswordTest(CryptKey, SetupEncryptionHeader.EncryptionBaseNonce, SetupEncryptionHeader.PasswordTest);
       Include(SetupHeader.Options, shPassword);
     end;
 
@@ -8223,7 +8223,7 @@ begin
 
     { Read decompressor DLL. Must be done after [Files] is parsed, since
       SetupHeader.CompressMethod isn't set until then }
-    case SetupMainHeader.CompressMethod of
+    case SetupHeader.CompressMethod of
       cmZip: begin
           AddStatus(Format(SCompilerStatusReadingFile, ['isunzlib.dll']));
           DecompressorDLL := CreateMemoryStreamFromFile(CompilerDir + 'isunzlib.dll',

Projects/Src/Setup.FileExtractor.pas

@@ -66,7 +66,7 @@ const
      TLZMA2Decompressor);
 begin
   if FFileExtractor = nil then
-    FFileExtractor := TFileExtractor.Create(DecompClasses[SetupMainHeader.CompressMethod]);
+    FFileExtractor := TFileExtractor.Create(DecompClasses[SetupHeader.CompressMethod]);
   Result := FFileExtractor;
 end;
 
@@ -192,7 +192,7 @@ procedure TFileExtractor.SeekTo(const FL: TSetupFileLocationEntry;
   procedure InitDecryption;
   begin
     { Recreate the unique nonce from the base nonce }
-    var Nonce := SetupMainHeader.EncryptionBaseNonce;
+    var Nonce := SetupEncryptionHeader.EncryptionBaseNonce;
     Nonce.RandomXorStartOffset := Nonce.RandomXorStartOffset xor FChunkStartOffset;
     Nonce.RandomXorFirstSlice := Nonce.RandomXorFirstSlice xor FChunkFirstSlice;
 

Projects/Src/Setup.MainFunc.pas

@@ -105,7 +105,7 @@ var
   UninstallSilent: Boolean;
 
   { Variables read in from the SETUP.0 file }
-  SetupMainHeader: TSetupMainHeader;
+  SetupEncryptionHeader: TSetupEncryptionHeader;
   SetupHeader: TSetupHeader;
   LangOptions: TSetupLanguageEntry;
   Entries: array[TEntryType] of TList;
@@ -2654,7 +2654,7 @@ var
     DecompressorDLLHandle := SafeLoadLibrary(Filename, SEM_NOOPENFILEERRORBOX);
     if DecompressorDLLHandle = 0 then
       InternalError(Format('Failed to load DLL "%s"', [Filename]));
-    case SetupMainHeader.CompressMethod of
+    case SetupHeader.CompressMethod of
       cmZip:
         if not ZlibInitDecompressFunctions(DecompressorDLLHandle) then
           InternalError('ZlibInitDecompressFunctions failed');
@@ -2725,7 +2725,8 @@ var
     end;
   end;
 
-  function HandleInitPassword(const NeedPassword: Boolean; out CryptKey: TSetupEncryptionKey): Boolean; overload;
+  function HandleInitPassword(const NeedPassword, AllowSetFileExtractorCryptKey: Boolean;
+    out CryptKey: TSetupEncryptionKey): Boolean; overload;
   { Handles InitPassword and returns the updated value of NeedPassword }
   { Also see WizardForm.CheckPassword }
   begin
@@ -2734,15 +2735,15 @@ var
     if NeedPassword and (InitPassword <> '') then begin
       var PasswordOk := False;
       var S := InitPassword;
-      GenerateEncryptionKey(S, SetupMainHeader.EncryptionKDFSalt, SetupMainHeader.EncryptionKDFIterations, CryptKey);
+      GenerateEncryptionKey(S, SetupEncryptionHeader.EncryptionKDFSalt, SetupEncryptionHeader.EncryptionKDFIterations, CryptKey);
       if shPassword in SetupHeader.Options then
-        PasswordOk := TestPassword(CryptKey, SetupMainHeader.EncryptionBaseNonce, SetupMainHeader.PasswordTest);
+        PasswordOk := TestPassword(CryptKey, SetupEncryptionHeader.EncryptionBaseNonce, SetupEncryptionHeader.PasswordTest);
       if not PasswordOk and (CodeRunner <> nil) then
         PasswordOk := CodeRunner.RunBooleanFunctions('CheckPassword', [S], bcTrue, False, PasswordOk);
 
       if PasswordOk then begin
         Result := False;
-        if SetupMainHeader.EncryptionUse <> euNone then
+        if AllowSetFileExtractorCryptKey and (SetupEncryptionHeader.EncryptionUse <> euNone) then
           FileExtractor.CryptKey := CryptKey;
       end;
     end;
@@ -2751,7 +2752,7 @@ var
   function HandleInitPassword(const NeedPassword: Boolean): Boolean; overload;
   begin
     var CryptKey: TSetupEncryptionKey;
-    Result := HandleInitPassword(NeedPassword, CryptKey);
+    Result := HandleInitPassword(NeedPassword, True, CryptKey);
   end;
 
   procedure SetupInstallMode;
@@ -3096,30 +3097,36 @@ begin
     if TestID <> SetupID then
       AbortInit(msgSetupFileCorruptOrWrongVer);
 
-    var SetupMainHeaderCRC: Longint;
-    SetupFile.Read(SetupMainHeaderCRC, SizeOf(SetupMainHeaderCRC));
-    SetupFile.Read(SetupMainHeader, SizeOf(SetupMainHeader));
-    if SetupMainHeaderCRC <> GetCRC32(SetupMainHeader, SizeOf(SetupMainHeader)) then
+    var SetupEncryptionHeaderCRC: Longint;
+    SetupFile.Read(SetupEncryptionHeaderCRC, SizeOf(SetupEncryptionHeaderCRC));
+    SetupFile.Read(SetupEncryptionHeader, SizeOf(SetupEncryptionHeader));
+    if SetupEncryptionHeaderCRC <> GetCRC32(SetupEncryptionHeader, SizeOf(SetupEncryptionHeader)) then
       AbortInit(msgSetupFileCorruptOrWrongVer);
 
     var CryptKey: TSetupEncryptionKey;
-    if SetupMainHeader.EncryptionUse = euFull then begin
+    if SetupEncryptionHeader.EncryptionUse = euFull then begin
       { HandleInitPassword requires this }
       SetupHeader.Options := SetupHeader.Options + [shPassword];
-      if HandleInitPassword(True, CryptKey) then { HandleInitPassword returns True on failure }
+      { Specifying False for AllowSetFileExtractorCryptKey because FileExtractor (a function!)
+        requires SetupHeader.CompressMethod to be set, so delaying until SetupHeader is read below }
+      if HandleInitPassword(True, False, CryptKey) then { HandleInitPassword returns True on failure }
         AbortInit(msgIncorrectPassword)
     end;
 
     try
       var Reader := TCompressedBlockReader.Create(SetupFile, TLZMA1Decompressor);
       try
-        if SetupMainHeader.EncryptionUse = euFull then
-          Reader.InitDecryption(CryptKey, SetupMainHeader.EncryptionBaseNonce, -2);
+        if SetupEncryptionHeader.EncryptionUse = euFull then
+          Reader.InitDecryption(CryptKey, SetupEncryptionHeader.EncryptionBaseNonce, -2);
 
         { Header }
         SECompressedBlockRead(Reader, SetupHeader, SizeOf(SetupHeader),
           SetupHeaderStrings, SetupHeaderAnsiStrings);
-      { Language entries }
+
+        if SetupEncryptionHeader.EncryptionUse = euFull then
+          FileExtractor.CryptKey := CryptKey; { See above }
+
+        { Language entries }
         ReadEntriesWithoutVersion(Reader, seLanguage, SetupHeader.NumLanguageEntries,
           SizeOf(TSetupLanguageEntry));
         { CustomMessage entries }
@@ -3196,7 +3203,7 @@ begin
         LogCompatibilityMode;
         LogWindowsVersion;
 
-        NeedPassword := (SetupMainHeader.EncryptionUse <> euFull) and (shPassword in SetupHeader.Options);
+        NeedPassword := (SetupEncryptionHeader.EncryptionUse <> euFull) and (shPassword in SetupHeader.Options);
         NeedSerial := False;
         NeedsRestart := shAlwaysRestart in SetupHeader.Options;
 
@@ -3253,7 +3260,7 @@ begin
           WizardSmallImages.Add(ReadWizardImage(Reader));
         { Decompressor DLL }
         DecompressorDLL := nil;
-        if SetupMainHeader.CompressMethod in [cmZip, cmBzip] then begin
+        if SetupHeader.CompressMethod in [cmZip, cmBzip] then begin
           DecompressorDLL := TMemoryStream.Create;
           ReadFileIntoStream(Reader, DecompressorDLL);
         end;
@@ -3268,8 +3275,8 @@ begin
       end;
       Reader := TCompressedBlockReader.Create(SetupFile, TLZMA1Decompressor);
       try
-        if SetupMainHeader.EncryptionUse = euFull then
-          Reader.InitDecryption(CryptKey, SetupMainHeader.EncryptionBaseNonce, -3);
+        if SetupEncryptionHeader.EncryptionUse = euFull then
+          Reader.InitDecryption(CryptKey, SetupEncryptionHeader.EncryptionBaseNonce, -3);
 
         { File location entries }
         ReadEntriesWithoutVersion(Reader, seFileLocation, SetupHeader.NumFileLocationEntries,
@@ -3346,7 +3353,7 @@ begin
   LoadSHFolderDLL;
 
   { Save DecompressorDLL stream as "_isdecmp.dll" in TempInstallDir, and load it }
-  if SetupMainHeader.CompressMethod in [cmZip, cmBzip] then
+  if SetupHeader.CompressMethod in [cmZip, cmBzip] then
     LoadDecompressorDLL;
 
   { Save SevenZipDll stream as "_is7z.dll" in TempInstallDir, and load it }

Projects/Src/Setup.WizardForm.pas

@@ -2432,19 +2432,19 @@ procedure TWizardForm.NextButtonClick(Sender: TObject);
     var SaveCursor := GetCursor;
     SetCursor(LoadCursor(0, IDC_WAIT));
     try
-      GenerateEncryptionKey(S, SetupMainHeader.EncryptionKDFSalt, SetupMainHeader.EncryptionKDFIterations, CryptKey);
+      GenerateEncryptionKey(S, SetupEncryptionHeader.EncryptionKDFSalt, SetupEncryptionHeader.EncryptionKDFIterations, CryptKey);
     finally
       SetCursor(SaveCursor);
     end;
 
     if shPassword in SetupHeader.Options then
-      Result := TestPassword(CryptKey, SetupMainHeader.EncryptionBaseNonce, SetupMainHeader.PasswordTest);
+      Result := TestPassword(CryptKey, SetupEncryptionHeader.EncryptionBaseNonce, SetupEncryptionHeader.PasswordTest);
     if not Result and (CodeRunner <> nil) then
       Result := CodeRunner.RunBooleanFunctions('CheckPassword', [S], bcTrue, False, Result);
 
     if Result then begin
       NeedPassword := False;
-      if SetupMainHeader.EncryptionUse <> euNone then
+      if SetupEncryptionHeader.EncryptionUse <> euNone then
         FileExtractor.CryptKey := CryptKey;
       PasswordEdit.Text := '';
     end else begin

Projects/Src/Shared.Struct.pas

@@ -88,14 +88,12 @@ const
 
 type
   { Should not contain strings }
-  TSetupMainHeader = packed record
-    PasswordTest: Integer;
+  TSetupEncryptionHeader = packed record
     EncryptionUse: TSetupEncryptionUse;
     EncryptionKDFSalt: TSetupKDFSalt;
     EncryptionKDFIterations: Integer;
     EncryptionBaseNonce: TSetupEncryptionNonce;
-    { FileExtractor (a function called early to initialize its CryptKey) requires CompressMethod to be set }
-    CompressMethod: TSetupCompressMethod;
+    PasswordTest: Integer;
   end;
 
 const
@@ -130,6 +128,7 @@ type
     PrivilegesRequiredOverridesAllowed: TSetupPrivilegesRequiredOverrides;
     ShowLanguageDialog: (slYes, slNo, slAuto);
     LanguageDetectionMethod: TSetupLanguageDetectionMethod;
+    CompressMethod: TSetupCompressMethod;
     DisableDirPage, DisableProgramGroupPage: TSetupDisablePage;
     UninstallDisplaySize: Integer64;
     Options: set of TSetupHeaderOption;