New Script Wizard and the Generate [Files] Entries tool: add support for download and extractarchive.

Also fixes a small memory leak in TWizardFormFilesHelper.

Projects/Src/IDE.FilesDesignerForm.dfm

@@ -23,8 +23,6 @@ object FilesDesignerForm: TFilesDesignerForm
     Align = alBottom
     BevelOuter = bvNone
     TabOrder = 0
-    ExplicitTop = 360
-    ExplicitWidth = 571
     object Bevel1: TBevel
       Left = 0
       Top = 0
@@ -57,7 +55,7 @@ object FilesDesignerForm: TFilesDesignerForm
   end
   object AppFilesEditButton: TButton
     Left = 476
-    Top = 107
+    Top = 135
     Width = 89
     Height = 23
     Caption = '&Parameters...'
@@ -65,7 +63,7 @@ object FilesDesignerForm: TFilesDesignerForm
   end
   object AppFilesRemoveButton: TButton
     Left = 476
-    Top = 135
+    Top = 162
     Width = 89
     Height = 23
     Caption = 'Remo&ve'
@@ -81,7 +79,7 @@ object FilesDesignerForm: TFilesDesignerForm
   end
   object AppFilesAddButton: TButton
     Left = 476
-    Top = 51
+    Top = 50
     Width = 89
     Height = 23
     Caption = '&Add file(s)...'
@@ -90,7 +88,7 @@ object FilesDesignerForm: TFilesDesignerForm
   object AppFilesListBox: TDropListBox
     Left = 8
     Top = 52
-    Width = 453
+    Width = 449
     Height = 297
     ItemHeight = 15
     TabOrder = 5
@@ -103,7 +101,7 @@ object FilesDesignerForm: TFilesDesignerForm
     AutoSize = False
     Caption = '&Files:'
     FocusControl = AppFilesListBox
-    TabOrder = 6
+    TabOrder = 7
     WordWrap = True
   end
   object NotCreateAppDirCheck: TCheckBox
@@ -112,6 +110,14 @@ object FilesDesignerForm: TFilesDesignerForm
     Width = 253
     Height = 17
     Caption = '&Script has CreateAppDir=no'
-    TabOrder = 7
+    TabOrder = 8
+  end
+  object AppFilesAddDownloadButton: TButton
+    Left = 476
+    Top = 106
+    Width = 89
+    Height = 23
+    Caption = 'Do&wnload...'
+    TabOrder = 6
   end
 end

Projects/Src/IDE.FilesDesignerForm.pas

@@ -2,7 +2,7 @@ unit IDE.FilesDesignerForm;
 
 {
   Inno Setup
-  Copyright (C) 1997-2024 Jordan Russell
+  Copyright (C) 1997-2025 Jordan Russell
   Portions by Martijn Laan
   For conditions of distribution and use, see LICENSE.TXT.
 
@@ -28,6 +28,7 @@ type
     AppFilesLabel: TNewStaticText;
     NotCreateAppDirCheck: TCheckBox;
     Bevel1: TBevel;
+    AppFilesAddDownloadButton: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure InsertButtonClick(Sender: TObject);
@@ -54,7 +55,7 @@ begin
 
   FFilesHelper := TWizardFormFilesHelper.Create(Self,
     NotCreateAppDirCheck, AppFilesListBox, AppFilesAddButton, AppFilesAddDirButton,
-    AppFilesEditButton, AppFilesRemoveButton);
+    AppFilesAddDownloadButton, AppFilesEditButton, AppFilesRemoveButton);
 end;
 
 procedure TFilesDesignerForm.FormDestroy(Sender: TObject);

Projects/Src/IDE.Messages.pas

@@ -50,6 +50,11 @@ const
   SWizardAppFiles2 = 'Please specify the files that are part of your application.';
   SWizardAppFiles3 = 'Please specify the source folder.';
   SWizardAppFilesSubDirsMessage = 'Should files in subfolders of "%s" also be included?';
+  SWizardAppFilesDownloadExtractArchiveMessage = 'Is the file to download an archive which should be extracted?';
+  SWizardAppFilesDownloadDestNamePrompt = 'Name of the file:';
+  SWizardAppFilesDownloadArchiveDestNamePrompt = 'Name of the file (extension should match archive format):';
+  SWizardAppFilesDownloadExternalSizePrompt = 'Approximate size of the file in megabytes:';
+  SWizardAppFilesDownloadSourcePrompt = 'URL:';
   SWizardAppExeFilter = 'Application files (*.exe)|*.exe|All files|*.*';
   SWizardAppExeDefaultExt = 'exe';
   SWizardAppAssoc = 'Application File Association';

Projects/Src/IDE.Wizard.WizardFileForm.dfm

@@ -4,7 +4,7 @@ object WizardFileForm: TWizardFileForm
   BorderIcons = [biSystemMenu]
   BorderStyle = bsDialog
   Caption = 'Script Wizard File'
-  ClientHeight = 297
+  ClientHeight = 345
   ClientWidth = 420
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -16,29 +16,31 @@ object WizardFileForm: TWizardFileForm
   OnCreate = FormCreate
   DesignSize = (
     420
-    297)
+    345)
   TextHeight = 13
   object RequiredLabel1: TNewStaticText
     Left = 8
-    Top = 271
+    Top = 319
     Width = 21
     Height = 14
+    Anchors = [akLeft, akBottom]
     Caption = 'bold'
     Enabled = False
     TabOrder = 4
   end
   object RequiredLabel2: TNewStaticText
     Left = 36
-    Top = 271
+    Top = 319
     Width = 51
     Height = 14
+    Anchors = [akLeft, akBottom]
     Caption = ' = required'
     Enabled = False
     TabOrder = 5
   end
   object OKButton: TButton
     Left = 258
-    Top = 265
+    Top = 313
     Width = 73
     Height = 23
     Anchors = [akRight, akBottom]
@@ -50,7 +52,7 @@ object WizardFileForm: TWizardFileForm
   end
   object CancelButton: TButton
     Left = 338
-    Top = 265
+    Top = 313
     Width = 73
     Height = 23
     Anchors = [akRight, akBottom]
@@ -63,13 +65,13 @@ object WizardFileForm: TWizardFileForm
     Left = 8
     Top = 108
     Width = 403
-    Height = 149
+    Height = 197
     Anchors = [akLeft, akTop, akRight]
     Caption = ' Destination '
     TabOrder = 0
     DesignSize = (
       403
-      149)
+      197)
     object DestRootDirLabel: TNewStaticText
       Left = 12
       Top = 20
@@ -98,7 +100,7 @@ object WizardFileForm: TWizardFileForm
       Anchors = [akLeft, akTop, akRight]
       TabOrder = 2
     end
-    object SubDirLabel: TNewStaticText
+    object DestSubDirLabel: TNewStaticText
       Left = 12
       Top = 96
       Width = 103
@@ -115,6 +117,23 @@ object WizardFileForm: TWizardFileForm
       Anchors = [akLeft, akTop, akRight]
       TabOrder = 4
     end
+    object DestNameEdit: TEdit
+      Left = 12
+      Top = 164
+      Width = 379
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      TabOrder = 5
+    end
+    object DestNameLabel: TNewStaticText
+      Left = 12
+      Top = 144
+      Width = 86
+      Height = 14
+      Caption = 'Destination &name:'
+      FocusControl = DestSubDirEdit
+      TabOrder = 6
+    end
   end
   object GroupBox1: TGroupBox
     Left = 8
@@ -149,19 +168,28 @@ object WizardFileForm: TWizardFileForm
     object RecurseSubDirsCheck: TCheckBox
       Left = 12
       Top = 68
-      Width = 141
+      Width = 125
       Height = 17
       Caption = '&Recurse subfolders'
       TabOrder = 2
-      OnClick = RecurseSubDirsCheckClick
+      OnClick = CheckClick
     end
     object CreateAllSubDirsCheck: TCheckBox
-      Left = 156
+      Left = 138
       Top = 68
-      Width = 165
+      Width = 151
       Height = 17
       Caption = '&Include empty subfolders'
       TabOrder = 3
     end
+    object ExtractArchiveCheck: TCheckBox
+      Left = 290
+      Top = 68
+      Width = 111
+      Height = 17
+      Caption = '&Extract archive'
+      TabOrder = 4
+      OnClick = CheckClick
+    end
   end
 end

Projects/Src/IDE.Wizard.WizardFileForm.pas

@@ -2,7 +2,7 @@ unit IDE.Wizard.WizardFileForm;
 
 {
   Inno Setup
-  Copyright (C) 1997-2020 Jordan Russell
+  Copyright (C) 1997-2025 Jordan Russell
   Portions by Martijn Laan
   For conditions of distribution and use, see LICENSE.TXT.
 
@@ -16,15 +16,18 @@ uses
   UIStateForm, StdCtrls, ExtCtrls, NewStaticText;
 
 type
+  TWizardFileOption = (foDownload, foExtractArchive, foRecurseSubDirs,  foCreateAllSubDirs);
+  TWizardFileOptions = set of TWizardFileOption;
 
   PWizardFile = ^TWizardFile;
   TWizardFile = record
     Source: String;
-    RecurseSubDirs: Boolean;
-    CreateAllSubDirs: Boolean;
+    Options: TWizardFileOptions;
     DestRootDir: String;
     DestRootDirIsConstant: Boolean;
     DestSubDir: String;
+    DestName: String;
+    ExternalSize: Int64;
   end;
 
   TWizardFileForm = class(TUIStateForm)
@@ -35,7 +38,7 @@ type
     DestRootDirEdit: TEdit;
     DestRootDirLabel: TNewStaticText;
     DestSubDirEdit: TEdit;
-    SubDirLabel: TNewStaticText;
+    DestSubDirLabel: TNewStaticText;
     RequiredLabel1: TNewStaticText;
     RequiredLabel2: TNewStaticText;
     GroupBox1: TGroupBox;
@@ -43,10 +46,13 @@ type
     SourceEdit: TEdit;
     RecurseSubDirsCheck: TCheckBox;
     CreateAllSubDirsCheck: TCheckBox;
+    ExtractArchiveCheck: TCheckBox;
+    DestNameLabel: TNewStaticText;
+    DestNameEdit: TEdit;
     procedure OKButtonClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure DestRootDirComboBoxChange(Sender: TObject);
-    procedure RecurseSubDirsCheckClick(Sender: TObject);
+    procedure CheckClick(Sender: TObject);
   private
     FAllowAppDestRootDir: Boolean;
     FWizardFile: PWizardFile;
@@ -81,17 +87,36 @@ const
     ( Constant: '{sd}'; Description: 'System drive root directory')
   );
 
+procedure MakeBold(const Ctl: TNewStaticText);
+begin
+  Ctl.Font.Style := [fsBold];
+end;
+
 procedure TWizardFileForm.SetWizardFile(WizardFile: PWizardFile);
 var
   I: Integer;
 begin
   FWizardFile := WizardFile;
 
-  SourceEdit.Text := WizardFile.Source;
-  if NewFileExists(SourceEdit.Text) then
-    RecurseSubDirsCheck.Enabled := False;
-  RecurseSubDirsCheck.Checked := WizardFile.RecurseSubDirs;
-  CreateAllSubDirsCheck.Checked := WizardFile.CreateAllSubDirs;
+  if foDownload in WizardFile.Options then begin
+    SourceLabel.Caption := '&Source URL:';
+    SourceEdit.Text := Format('%s (~%.0f MB)', [WizardFile.Source, WizardFile.ExternalSize/(1024*1024)]);
+    MakeBold(DestNameLabel);
+  end else begin
+    SourceEdit.Text := WizardFile.Source;
+    if NewFileExists(WizardFile.Source) then
+      RecurseSubDirsCheck.Enabled := False;
+    ExtractArchiveCheck.Visible := False;
+    if IsWildcard(WizardFile.Source) then begin
+      DestNameLabel.Enabled := False;
+      DestNameEdit.Color := clBtnFace;
+      DestNameEdit.ReadOnly := True;
+    end;
+  end;
+
+  ExtractArchiveCheck.Checked := foExtractArchive in WizardFile.Options;
+  RecurseSubDirsCheck.Checked := foRecurseSubDirs in WizardFile.Options;
+  CreateAllSubDirsCheck.Checked := foCreateAllSubDirs in WizardFile.Options;
   if WizardFile.DestRootDirIsConstant then begin
     for I := Low(DestRootDirs) to High(DestRootDirs) do begin
       if DestRootDirs[I].Constant = WizardFile.DestRootDir then begin
@@ -104,6 +129,7 @@ begin
     DestRootDirEdit.Text := WizardFile.DestRootDir;
   end;
   DestSubDirEdit.Text := WizardFile.DestSubDir;
+  DestNameEdit.Text := WizardFile.DestName;
 
   UpdateUI;
 end;
@@ -111,12 +137,6 @@ end;
 { --- }
 
 procedure TWizardFileForm.FormCreate(Sender: TObject);
-
-  procedure MakeBold(const Ctl: TNewStaticText);
-  begin
-    Ctl.Font.Style := [fsBold];
-  end;
-
 var
   I: Integer;
 begin
@@ -138,6 +158,8 @@ end;
 
 procedure TWizardFileForm.UpdateUI;
 begin
+  if foDownload in FWizardFile.Options then
+    RecurseSubDirsCheck.Enabled := ExtractArchiveCheck.Checked;
   CreateAllSubDirsCheck.Enabled := RecurseSubDirsCheck.Enabled and RecurseSubDirsCheck.Checked;
 
   if DestRootDirComboBox.ItemIndex = DestRootDirComboBox.Items.Count-1 then begin
@@ -151,8 +173,12 @@ end;
 
 { --- }
 
-procedure TWizardFileForm.RecurseSubDirsCheckClick(Sender: TObject);
+procedure TWizardFileForm.CheckClick(Sender: TObject);
 begin
+  if (Sender = ExtractArchiveCheck) and ExtractArchiveCheck.Checked then begin
+    RecurseSubDirsCheck.Checked := True;
+    CreateAllSubDirsCheck.Checked := True;
+  end;
   UpdateUI;
 end;
 
@@ -181,8 +207,13 @@ begin
     ModalResult := mrOk;
 
   if ModalResult = mrOk then begin
-    FWizardFile.RecurseSubDirs := RecurseSubDirsCheck.Checked;
-    FWizardFile.CreateAllSubDirs := CreateAllSubDirsCheck.Checked;
+    FWizardFile.Options := FWizardFile.Options * [foDownload];
+    if ExtractArchiveCheck.Checked then
+      Include(FWizardFile.Options, foExtractArchive);
+    if RecurseSubDirsCheck.Checked then
+      Include(FWizardFile.Options, foRecurseSubDirs);
+    if CreateAllSubDirsCheck.Checked then
+      Include(FWizardFile.Options, foCreateAllSubDirs);
     if DestRootDirIndex = DestRootDirComboBox.Items.Count-1 then begin
       FWizardFile.DestRootDir := DestRootDirEdit.Text;
       FWizardFile.DestRootDirIsConstant := False;
@@ -191,6 +222,7 @@ begin
       FWizardFile.DestRootDirIsConstant := True;
     end;
     FWizardFile.DestSubDir := DestSubDirEdit.Text;
+    FWizardFile.DestName := DestNameEdit.Text;
   end;
 end;
 

Projects/Src/IDE.Wizard.WizardForm.dfm

@@ -687,21 +687,21 @@ object WizardForm: TWizardForm
           end
           object AppFilesEditButton: TButton
             Left = 459
-            Top = 175
+            Top = 203
             Width = 89
             Height = 23
             Anchors = [akTop, akRight]
             Caption = '&Parameters...'
-            TabOrder = 9
+            TabOrder = 10
           end
           object AppFilesRemoveButton: TButton
             Left = 459
-            Top = 203
+            Top = 231
             Width = 89
             Height = 23
             Anchors = [akTop, akRight]
             Caption = 'Remo&ve'
-            TabOrder = 10
+            TabOrder = 11
           end
           object AppExeEdit: TEdit
             Left = 36
@@ -749,6 +749,15 @@ object WizardForm: TWizardForm
             TabOrder = 4
             OnClick = NoAppExeCheckClick
           end
+          object AppFilesAddDownloadButton: TButton
+            Left = 459
+            Top = 175
+            Width = 89
+            Height = 23
+            Anchors = [akTop, akRight]
+            Caption = 'Dow&nload...'
+            TabOrder = 9
+          end
         end
         object AppAssocPage: TNewNotebookPage
           DesignSize = (

Projects/Src/IDE.Wizard.WizardForm.pas

@@ -142,6 +142,7 @@ type
     AppRegistryMinVerDocBitBtn: TBitmapButton;
     WelcomeImageDark: TImage;
     InnerImageDark: TImage;
+    AppFilesAddDownloadButton: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@@ -285,7 +286,7 @@ begin
   FWizardName := SWizardDefaultName;
   FFilesHelper := TWizardFormFilesHelper.Create(Self,
     NotCreateAppDirCheck, AppFilesListBox, AppFilesAddButton, AppFilesAddDirButton,
-    AppFilesEditButton, AppFilesRemoveButton);
+    AppFilesAddDownloadButton, AppFilesEditButton, AppFilesRemoveButton);
   FRegistryHelper := TWizardFormRegistryHelper.Create(Self, AppRegistryFileEdit,
     AppRegistryFileButton, AppRegistryUninsDeleteKeyCheck,
     AppRegistryUninsDeleteKeyIfEmptyCheck, AppRegistryUninsDeleteValueCheck,
@@ -974,6 +975,14 @@ begin
       end;
     end;
 
+    var HasExtractArchive: Boolean;
+    FFilesHelper.AddScript(Files, HasExtractArchive);
+    if HasExtractArchive then begin
+      Setup := Setup + 'ArchiveExtraction=full' + SNewLine;
+      Setup := Setup + '; Use "ArchiveExtraction=enhanced" if all your archives are .7z files' + SNewLine;
+      Setup := Setup + '; Use "ArchiveExtraction=enhanced/nopassword" if all your archives are not password-protected' + SNewLine;
+    end;
+
     { AppAssocation }
     if CreateAssocCheck.Enabled and CreateAssocCheck.Checked then begin
       Setup := Setup + 'ChangesAssociations=yes' + SNewLine;
@@ -983,8 +992,6 @@ begin
       Registry := Registry + 'Root: HKA; Subkey: "Software\Classes\' + AppAssocKey + '\shell\open\command"; ValueType: string; ValueName: ""; ValueData: """{app}\' + AppExeName + '"" ""%1"""' + SNewLine;
     end;
 
-    FFilesHelper.AddScript(Files);
-
     { AppGroup }
     if not NotCreateAppDirCheck.Checked then begin
       if UseAutoProgramsCheck.Enabled and UseAutoProgramsCheck.Checked then begin

Projects/Src/IDE.Wizard.WizardFormFilesHelper.pas

@@ -2,7 +2,7 @@ unit IDE.Wizard.WizardFormFilesHelper;
 
 {
   Inno Setup
-  Copyright (C) 1997-2024 Jordan Russell
+  Copyright (C) 1997-2025 Jordan Russell
   Portions by Martijn Laan
   For conditions of distribution and use, see LICENSE.TXT.
 
@@ -13,7 +13,7 @@ interface
 
 uses
   Windows, Classes, Forms, StdCtrls,
-  DropListBox;
+  DropListBox, IDE.Wizard.WizardFileForm;
 
 type
   TWizardFormFilesHelper = class
@@ -24,7 +24,7 @@ type
       FFilesListBox: TDropListBox;
       FEditButton: TButton;
       FRemoveButton: TButton;
-      procedure AddWizardFile(const Source: String; const RecurseSubDirs, CreateAllSubDirs: Boolean);
+      function AddWizardFile(const Source: String; const Options: TWizardFileOptions): PWizardFile;
       function GetWizardFilesCount: Integer;
       procedure UpdateWizardFiles;
       procedure UpdateWizardFilesButtons;
@@ -33,27 +33,29 @@ type
       procedure FilesListBoxDropFile(Sender: TDropListBox; const FileName: String);
       procedure AddButtonClick(Sender: TObject);
       procedure AddDirButtonClick(Sender: TObject);
+      procedure AddDownloadButtonClick(Sender: TObject);
       procedure EditButtonClick(Sender: TObject);
       procedure RemoveButtonClick(Sender: TObject);
     public
       constructor Create(const Form: TForm;
         const NotCreateAppDirCheck: TCheckBox; const FilesListBox: TDropListBox;
-        const AddButton, AddDirButton, EditButton, RemoveButton: TButton);
+        const AddButton, AddDirButton, AddDownloadButton, EditButton, RemoveButton: TButton);
       destructor Destroy; override;
-      procedure AddScript(var Files: String);
+      procedure AddScript(var Files: String); overload;
+      procedure AddScript(var Files: String; out HasExtractArchive: Boolean); overload;
       property FilesCount: Integer read GetWizardFilesCount;
   end;
 
 implementation
 
 uses
-  SysUtils, UITypes,
+  SysUtils, UITypes, Dialogs,
   Shared.CommonFunc.Vcl, Shared.CommonFunc, BrowseFunc, PathFunc,
-  IDE.Messages, IDE.Wizard.WizardFileForm;
+  IDE.Messages;
 
 constructor TWizardFormFilesHelper.Create(const Form: TForm;
   const NotCreateAppDirCheck: TCheckBox; const FilesListBox: TDropListBox;
-  const AddButton, AddDirButton, EditButton, RemoveButton: TButton);
+  const AddButton, AddDirButton, AddDownloadButton, EditButton, RemoveButton: TButton);
 begin
   inherited Create;
 
@@ -70,6 +72,7 @@ begin
   FilesListBox.OnDropFile :=   FilesListBoxDropFile;
   AddButton.OnClick := AddButtonClick;
   AddDirButton.OnClick := AddDirButtonClick;
+  AddDownloadButton.OnClick := AddDownloadButtonClick;
   EditButton.OnClick := EditButtonClick;
   RemoveButton.OnClick := RemoveButtonClick;
 
@@ -79,25 +82,26 @@ end;
 destructor TWizardFormFilesHelper.Destroy;
 begin
   for var I := 0 to FWizardFiles.Count-1 do
-    Dispose(FWizardFiles[i]);
+    Dispose(PWizardFile(FWizardFiles[i]));
   FWizardFiles.Free;
 end;
 
-procedure TWizardFormFilesHelper.AddWizardFile(const Source: String; const RecurseSubDirs, CreateAllSubDirs: Boolean);
+function TWizardFormFilesHelper.AddWizardFile(const Source: String; const Options: TWizardFileOptions): PWizardFile;
 var
   WizardFile: PWizardFile;
 begin
   New(WizardFile);
   WizardFile.Source := Source;
-  WizardFile.RecurseSubDirs := RecurseSubDirs;
-  WizardFile.CreateAllSubDirs := CreateAllSubDirs;
+  WizardFile.Options := Options;
   WizardFile.DestRootDirIsConstant := True;
   if not FNotCreateAppDirCheck.Checked then
     WizardFile.DestRootDir := '{app}'
   else
     WizardFile.DestRootDir := '{win}';
   WizardFile.DestSubDir := '';
+  WizardFile.DestName := '';
   FWizardFiles.Add(WizardFile);
+  Result := WizardFile;
 end;
 
 function TWizardFormFilesHelper.GetWizardFilesCount: Integer;
@@ -144,9 +148,9 @@ procedure TWizardFormFilesHelper.FilesListBoxDropFile(Sender: TDropListBox;
   const FileName: String);
 begin
   if DirExists(FileName) then
-    AddWizardFile(AddBackslash(FileName) + '*', True, True)
+    AddWizardFile(AddBackslash(FileName) + '*', [foRecurseSubDirs, foCreateAllSubDirs])
   else
-    AddWizardFile(FileName, False, False);
+    AddWizardFile(FileName, []);
   UpdateWizardFiles;
   UpdateWizardFilesButtons;
 end;
@@ -161,7 +165,7 @@ begin
     if NewGetOpenFileNameMulti('', FileList, '', SWizardAllFilesFilter, '', FForm.Handle) then begin
       FileList.Sort;
       for I := 0 to FileList.Count-1 do
-        AddWizardFile(FileList[I], False, False);
+        AddWizardFile(FileList[I], []);
       UpdateWizardFiles;
     end;
   finally
@@ -182,11 +186,47 @@ begin
     else
       Exit;
     end;
-    AddWizardFile(AddBackslash(Path) + '*', Recurse, Recurse);
+    var Options: TWizardFileOptions;
+    if Recurse then
+      Options := [foRecurseSubDirs, foCreateAllSubDirs]
+    else
+      Options := [];
+    AddWizardFile(AddBackslash(Path) + '*', Options);
     UpdateWizardFiles;
   end;
 end;
 
+procedure TWizardFormFilesHelper.AddDownloadButtonClick(Sender: TObject);
+const
+  DestNamePrompts: array [Boolean] of string = (SWizardAppFilesDownloadDestNamePrompt, SWizardAppFilesDownloadArchiveDestNamePrompt);
+begin
+  var Source := 'https://www.example.com/MyProg.7z';
+  repeat
+    if not InputQuery(FForm.Caption, SWizardAppFilesDownloadSourcePrompt, Source)  then
+      Exit;
+  until Source <> '';
+  const ExtractArchive = MsgBox(SWizardAppFilesDownloadExtractArchiveMessage, '', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES;
+  var DestName := 'MyProg.7z';
+  repeat
+    if not InputQuery(FForm.Caption, DestNamePrompts[ExtractArchive], DestName)  then
+      Exit;
+  until DestName <> '';
+  var ExternalSizeAsString := '';
+  var ExternalSize: Extended;
+  repeat
+    if not InputQuery(FForm.Caption, SWizardAppFilesDownloadExternalSizePrompt, ExternalSizeAsString)  then
+      Exit;
+  until TryStrToFloat(ExternalSizeAsString, ExternalSize);
+
+  var Options: TWizardFileOptions := [foDownload];
+  if ExtractArchive then
+    Options := Options + [foExtractArchive, foRecurseSubDirs, foCreateAllSubDirs];
+  const WizardFile = AddWizardFile(Source, Options);
+  WizardFile.DestName := DestName;
+  WizardFile.ExternalSize := Round(ExternalSize*1024*1024);
+  UpdateWizardFiles;
+end;
+
 procedure TWizardFormFilesHelper.EditButtonClick(Sender: TObject);
 var
   WizardFileForm: TWizardFileForm;
@@ -213,26 +253,54 @@ var
   I: Integer;
 begin
   I := FFilesListBox.ItemIndex;
-    Dispose(FWizardFiles[I]);
+  Dispose(PWizardFile(FWizardFiles[I]));
   FWizardFiles.Delete(I);
   UpdateWizardFiles;
   UpdateWizardFilesButtons;
 end;
 
-procedure TWizardFormFilesHelper.AddScript(var Files: String);
+procedure TWizardFormFilesHelper.AddScript(var Files: String; out HasExtractArchive: Boolean);
 var
   WizardFile: PWizardFile;
   I: Integer;
 begin
+  var AddedVerificationNote := False;
+
   for I := 0 to FWizardFiles.Count-1 do begin
     WizardFile := FWizardFiles[I];
-    Files := Files + 'Source: "' + WizardFile.Source + '"; DestDir: "' + RemoveBackslashUnlessRoot(AddBackslash(WizardFile.DestRootDir) + WizardFile.DestSubDir) + '"; Flags: ignoreversion';
-    if WizardFile.RecurseSubDirs then
+
+    if (foDownload in WizardFile.Options) and not AddedVerificationNote then begin
+      Files := Files + '; NOTE: Use the "issigverify" flag or the "Hash" parameter to verify downloads' + SNewLine;
+      AddedVerificationNote := True;
+    end;
+
+    if foExtractArchive in WizardFile.Options then
+      HasExtractArchive := True;
+
+    Files := Files + 'Source: "' + WizardFile.Source + '"; DestDir: "' + RemoveBackslashUnlessRoot(AddBackslash(WizardFile.DestRootDir) + WizardFile.DestSubDir) + '"';
+    if WizardFile.DestName <> '' then
+      Files := Files + '; DestName: "' + WizardFile.DestName + '"';
+    if WizardFile.ExternalSize <> 0 then
+      Files := Files + '; ExternalSize: "' + WizardFile.ExternalSize.ToString + '"';
+    Files := Files + '; Flags: ignoreversion';
+    if WizardFile.Options * [foDownload, foExtractArchive] <> [] then
+      Files := Files + ' external';
+    if foDownload in WizardFile.Options then
+      Files := Files + ' download';
+    if foExtractArchive in WizardFile.Options then
+      Files := Files + ' extractarchive';
+    if foRecurseSubDirs in WizardFile.Options then
       Files := Files + ' recursesubdirs';
-    if WizardFile.CreateAllSubDirs then
+    if foCreateAllSubDirs in WizardFile.Options then
       Files := Files + ' createallsubdirs';
     Files := Files + SNewLine;
   end;
 end;
 
+procedure TWizardFormFilesHelper.AddScript(var Files: String);
+begin
+  var HasExtractArchive: Boolean;
+  AddScript(Files, HasExtractArchive);
+end;
+
 end.

whatsnew.htm

@@ -72,6 +72,7 @@ For conditions of distribution and use, see <a href="files/is/license.txt">LICEN
 <ul>
 <li>All download functionality now supports TLS 1.3 when available. Support for TLS 1.0 and 1.1 has been removed on all versions of Windows.</li>
 <li>Archive extraction now supports the RAR5 format. Requires <tt>Setup</tt> section directive <tt>ArchiveExtraction</tt> to be set to <tt>full</tt>.</li>
+<li>Compiler IDE: The New Script Wizard and the <i>Generate [Files] Entries</i> tool now support adding files to be downloaded. They will prompt you if the downloaded file is an archive that should be extracted.</li>
 </ul>
 <span class="head2">Other changes</span>
 <ul>