[Dodakaedr]

Всем привет, можно ли сделать несколько страниц Components, если да, то как? Заранее спасибо за ответы! »

Одну страницу через секцию [Components] а вторую вручную создавать.

Пример

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[Languages]
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"

[CustomMessages]
rus.CompName1=Зима.
rus.CompName2=Снежинки при загрузке.
rus.CompName3=Обводка персонажа снежинкой.

rus.CompName4=Интерфейс игры.

rus.CompName5=Модели.
rus.CompName6=Конфедерат.
rus.CompName7=Анархист.

rus.CompName8=Шарик для скила "Заморозка".
rus.CompName9=Fix убирающий тряску экрана.
rus.CompName10=Шарик + Fix,2в1.

rus.CompName11=Электро.
rus.CompName12=Огненная.
rus.CompName13=Снежная.
rus.CompName14=Сфера.

rus.CompName15=Электро.
rus.CompName16=Огненная.
rus.CompName17=Снежная.
rus.CompName18=Сфера.

rus.CompName19=Электро.
rus.CompName20=Огненная.
rus.CompName21=Снежная.
rus.CompName22=Сфера.(Для-3Б)

rus.CompName23=1-Электро,2-Огонь,3-Снег.
rus.CompName24=1-Огонь,2-Снег,3-Сфера.
rus.CompName25=1-Снег,2-Сфера,3-Электро.
rus.CompName26=1-Сфера,2-Электро,3-Огонь.
rus.CompName27=1-Электро,2-Снег,3-Огонь.
rus.CompName28=1-Огонь,2-Сфера,3-Снег.
rus.CompName29=1-Снег,2-Огонь,3-Сфера.
rus.CompName30=1-Сфера,2-Снег,3-Электро.
rus.CompName31=1-Электро,2-Огонь,3-Сфера.
rus.CompName32=1-Огонь,2-Электро,3-Сфера.
rus.CompName33=1-Снег,2-Огонь,3-Электро.
rus.CompName34=1-Сфера,2-Снег,3-Огонь.
rus.CompName35=1-Стрел,2-Пех,3-Мед.

[Components]
Name: Mode; Description: mode; Types: Full; flags: fixed
Name: Mode/SPOnly; Description: SPOnly; Flags:  disablenouninstallwarning exclusive
Name: Mode/MPOnly; Description: MPOnly; Flags: disablenouninstallwarning exclusive
Name: Mode2; Description: mode; Types: Full; flags: fixed
Name: Mode2/SPOnly2; Description: SPOnly; Flags: disablenouninstallwarning exclusive
Name: Mode2/MPOnly2; Description: MPOnly; Flags: disablenouninstallwarning exclusive


[Code]
var
ComponentsPage: TWizardPage;
ComponentsList: TNewCheckListBox;

procedure RedesignWizardForm;
begin
  ComponentsPage := CreateCustomPage(wpSelectComponents, SetupMessage(msgWizardSelectComponents), SetupMessage(msgSelectComponentsDesc));

  ComponentsList := TNewCheckListBox.Create(WizardForm);
  with ComponentsList do
  begin
    Parent := ComponentsPage.Surface;
    SetBounds(ScaleX(0), ScaleY(0), ScaleX(416), ScaleY(220));

    AddCheckBox('Дополнительные компоненты.', '', 0, False, True, False, True, nil);
      AddCheckBox('Winter', '', 1, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName1'), '', 2, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName2'), '', 2, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName3'), '', 2, False, True, False, True, nil);
      AddCheckBox('Interface', '', 1, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName4'), '', 2, False, True, False, True, nil);

      AddCheckBox('Models', '', 1, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName5'), '', 2, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName6'), '', 2, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName7'), '', 2, False, True, False, True, nil);

      AddCheckBox('Шарик от скила ''Заморозка'',Fix на массу киборга', '', 1, False, True, False, True, nil);
        AddRadioButton(CustomMessage('CompName8'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName9'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName10'), '', 2, False, True, nil);

    AddCheckBox('Сферы 3B', '', 0, False, True, False, True, nil);
      AddCheckBox('Стрел', '', 1, False, True, False, True, nil);
        AddRadioButton(CustomMessage('CompName11'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName12'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName13'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName14'), '', 2, False, True, nil);

      AddCheckBox('Пех', '', 1, False, True, False, True, nil);
        AddRadioButton(CustomMessage('CompName15'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName16'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName17'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName18'), '', 2, False, True, nil);

      AddCheckBox('Мед', '', 1, False, True, False, True, nil);
        AddRadioButton(CustomMessage('CompName19'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName20'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName21'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName22'), '', 2, False, True, nil);

      AddCheckBox('Сферы для 3B + Tesla.Cкрины идут по цифре 1,показывая как выглядит тесла пуха.Как выглядит 3B смотрите выше', '', 1, False, True, False, True, nil);
        AddRadioButton(CustomMessage('CompName23'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName24'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName25'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName26'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName27'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName28'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName29'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName30'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName31'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName32'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName33'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName34'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName35'), '', 2, False, True, nil);
  end;
end;

procedure InitializeWizard();
begin
    RedesignWizardForm;
end;