[nik1967]

ROMKA-1977,

совсем недавно подобный пример давал

Код:

[Setup]
AppName=My program
VersionInfoVersion=5.0
AppVerName=My program
DefaultDirName={pf}\My program
DefaultGroupName=My program
OutputDir=.

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

[Icons]
Name: {group}\MyProg; Filename: {app}; WorkingDir: {app}

[code]
var
  No_Icons_CheckBox: TNewCheckBox;

procedure No_Icons_CheckBox_OnClick(Sender: TObject);
begin
  WizardForm.NoIconsCheck.Checked:= TNewCheckBox(Sender).Checked;
end;


procedure InitializeWizard();
begin
  No_Icons_CheckBox:= TNewCheckBox.Create(WizardForm);
  with No_Icons_CheckBox do begin
	Parent:= WizardForm.SelectProgramGroupPage;
	SetBounds(ScaleX(32), ScaleY(168), ScaleX(200), ScaleY(17));
	Caption:= SetupMessage(msgNoProgramGroupCheck2);
	OnClick:=@No_Icons_CheckBox_OnClick;
  end;
end;