[vint56]

AlekseyPopovv,

Пример

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Files]
;Source: compiler:Examples\Readme.txt; DestDir: {app}\1; Check: IsChecked(1)
;Source: compiler:Examples\Readme.txt; DestDir: {app}\2; Check: IsChecked(2)

[Icons]
//0
Name: "{commondesktop}\Версия 1.1.0.0 (рекомендуется)"; Filename: "{app}\MyProg.exe"; Check: IsChecked(1)
Name: "{commondesktop}\Версия 1.1.0.1"; Filename: "{app}\MyProg.exe"; Check: IsChecked(2)
Name: "{commondesktop}\Версия 1.1.0.5"; Filename: "{app}\MyProg.exe"; Check: IsChecked(3)
Name: "{commondesktop}\Версия 1.1.0.7"; Filename: "{app}\MyProg.exe"; Check: IsChecked(4)
Name: "{commondesktop}\Версия 1.1.0.8"; Filename: "{app}\MyProg.exe"; Check: IsChecked(5)

Name: "{commondesktop}\Haali Matroska Muxer 2013.04.14"; Filename: "{app}\MyProg.exe"; Check: IsChecked(6)
Name: "{commondesktop}\Surcode DTS Encoder 1.0.29.0"; Filename: "{app}\MyProg.exe"; Check: IsChecked(7)
Name: "{commondesktop}\Nero AAC Encoder 1.5.4.0"; Filename: "{app}\MyProg.exe"; Check: IsChecked(8)
Name: "{commondesktop}\Nero Audio Decoder 7"; Filename: "{app}\MyProg.exe"; Check: IsChecked(9)
Name: "{commondesktop}\Sonic Audio Decoder 4.3.0.169"; Filename: "{app}\MyProg.exe"; Check: IsChecked(10)

[code]
var
TasksPage,TasksPage2: TWizardPage;
CheckListBox,CheckListBox2: TNewCheckListBox;
BorderWidth,BorderWidth2: Integer;

function IsChecked(const Index: Integer): Boolean;
begin
Result:= CheckListBox.Checked[Index]
end;

procedure InitializeWizard();
begin
TasksPage := CreateCustomPage(wpWelcome, 'Выберите дополнительные задачи', 'Какие дополнительные задачи необходимо выполнить?');
CheckListBox := TNewCheckListBox.Create(WizardForm);
CheckListBox.Parent := TasksPage.Surface;
CheckListBox.SetBounds(ScaleX(0), ScaleY(0), ScaleX(417), ScaleY(210));
BorderWidth := (CheckListBox.Width-CheckListBox.ClientWidth) div 2;
CheckListBox.Flat := False;
CheckListBox.Color := clMenu;
CheckListBox.BorderStyle := bsNone;
CheckListBox.WantTabs :=True;

CheckListBox.AddCheckBoxEx('ArcSoft DTS decoder', '', 0, True, True, True, True, nil, True);
CheckListBox.AddRadioButtonEx('Версия 1.1.0.0 (рекомендуется)', '', 1, True, True, nil, False);
CheckListBox.AddRadioButtonEx('Версия 1.1.0.1', '', 1, False, True, nil, True);
CheckListBox.AddRadioButtonEx('Версия 1.1.0.5', '', 1, False, True, nil, True);
CheckListBox.AddRadioButtonEx('Версия 1.1.0.7', '', 1, False, True, nil, True);
CheckListBox.AddRadioButtonEx('Версия 1.1.0.8', '', 1, False, True, nil, True);

CheckListBox.AddCheckBoxEx('Haali Matroska Muxer 2013.04.14', '', 0, True, True, True, True, nil,True);
CheckListBox.AddCheckBoxEx('Surcode DTS Encoder 1.0.29.0', '', 0,True, True, True, True, nil,True);
CheckListBox.AddCheckBoxEx('Nero AAC Encoder 1.5.4.0', '', 0, True, True, True, True, nil,True);
CheckListBox.AddCheckBoxEx('Nero Audio Decoder 7', '', 0,True, True, True, True, nil,True);
CheckListBox.AddCheckBoxEx('Sonic Audio Decoder 4.3.0.169', '', 0, True, True, True, True, nil,True);
end;