You have to code the second license page as a custom page.
You can start with the CreateOutputMsgMemoPage function, which creates a page with a memo. Then, you just add radio buttons for accepting the license.
[Files] ; Embed the second license files ; (the part after underscore must match the Name parameter from Languages section) Source: "license2_english.txt"; Flags: dontcopy Source: "license2_czech.txt"; Flags: dontcopy ; Other languages [Code] var SecondLicensePage: TOutputMsgMemoWizardPage; License2AcceptedRadio: TRadioButton; License2NotAcceptedRadio: TRadioButton; procedure CheckLicense2Accepted(Sender: TObject); begin // Update Next button when user (un)accepts the license WizardForm.NextButton.Enabled := License2AcceptedRadio.Checked; end; function CloneLicenseRadioButton(Source: TRadioButton): TRadioButton; begin Result := TRadioButton.Create(WizardForm); Result.Parent := SecondLicensePage.Surface; Result.Caption := Source.Caption; Result.Left := Source.Left; Result.Top := Source.Top; Result.Width := Source.Width; Result.Height := Source.Height; // Needed for WizardStyle=modern / WizardResizable=yes Result.Anchors := Source.Anchors; Result.OnClick := @CheckLicense2Accepted; end; procedure InitializeWizard(); var LicenseFileName: string; LicenseFilePath: string; begin // Create second license page, // with the same labels as the original license page SecondLicensePage := CreateOutputMsgMemoPage( wpLicense, SetupMessage(msgWizardLicense), SetupMessage(msgLicenseLabel), SetupMessage(msgLicenseLabel3), ''); // Shrink license box to make space for radio buttons SecondLicensePage.RichEditViewer.Height := WizardForm.LicenseMemo.Height; // Load license // Loading ex-post, as Lines.LoadFromFile supports UTF-8, // contrary to LoadStringFromFile. LicenseFileName := 'license2_' + ActiveLanguage + '.txt'; ExtractTemporaryFile(LicenseFileName); LicenseFilePath := ExpandConstant('\' + LicenseFileName); SecondLicensePage.RichEditViewer.Lines.LoadFromFile(LicenseFilePath); DeleteFile(LicenseFilePath); // Clone accept/do not accept radio buttons for the second license License2AcceptedRadio := CloneLicenseRadioButton(WizardForm.LicenseAcceptedRadio); License2NotAcceptedRadio := CloneLicenseRadioButton(WizardForm.LicenseNotAcceptedRadio); // Initially not accepted License2NotAcceptedRadio.Checked := True; end; procedure CurPageChanged(CurPageID: Integer); begin // Update Next button when user gets to second license page if CurPageID = SecondLicensePage.ID then begin CheckLicense2Accepted(nil); end; end; For a generalization of the solution that allows adding any number of license pages, see:
Add 4 license pages in Inno Setup
Original (first) license page:
Coded (second) license page:
