Including a summary of the files to download with Inno Setup 6.1.1 beta to Ready page?

I got confused a bit initially. Because the issue is obvious. Your code executes when you click “Install” button on the “Ready” page. So obviously only after the “Ready” page shows.

You have to call the AddFileForDownload earlier. Maybe to NextButtonClick(wpSelectTasks).

function NextButtonClick(CurPageID: integer): boolean;
begin
  Result := True;

  if (CurPageID = wpSelectTasks) then
  begin
    DownloadPage.Clear;
    if (dotNetNeeded) then
    begin
      // We need to download the 4.6.2 setup from the Microsoft Website
      dotNetRedistPath :=
        ExpandConstant('{tmp}\NDP451-KB2858728-x86-x64-AllOS-ENU.exe');
      AddFileForDownload(
        dotnetRedistURL, 'NDP451-KB2858728-x86-x64-AllOS-ENU.exe');
    end;

    if (bVcRedist64BitNeeded) then
    begin
      // We need to download the 64 Bit VC Redistributable
      // from the Microsoft Website
      vcRedist64BitPath := ExpandConstant('{tmp}\vc_redist.x64.exe');
      AddFileForDownload(vcRedist64BitURL, 'vc_redist.x64.exe');
    end;

    if (bVcRedist32BitNeeded) then
    begin
      // We need to download the 32 Bit VC Redistributable
      // from the Microsoft Website
      vcRedist32BitPath := ExpandConstant('{tmp}\vc_redist.x86.exe');
      AddFileForDownload(vcRedist32BitURL, 'vc_redist.x86.exe');
    end;

    if (WizardIsTaskSelected('downloadhelp')) then
      AddFileForDownload('{#HelpDocSetupURL}', 'HelpDocSetup.exe');
  end
    else
  if (CurPageID = wpReady) then
  begin
    DownloadPage.Show;
    try
      try
        DownloadPage.Download;
        Result := True;
      except
        SuppressibleMsgBox(
          AddPeriod(GetExceptionMessage), mbCriticalError, MB_OK, IDOK);
        Result := False;
      end;
    finally
      DownloadPage.Hide;
    end;
  end;
end;

(untested)

CLICK HERE to find out more related problems solutions.

Leave a Comment

Your email address will not be published.

Scroll to Top