[Dodakaedr]

diman_21Ru, У вас в скрипте используется функция IsComponent(CompIndex: Integer): Boolean; это ваша чекова функция которая работает по индексу. Расчет индекса идет с первого компонента и начинается с 0 тоесть:

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

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

[Files]
Source: {win}\Help\*; DestDir: {app}; Check: IsComponent(0); Flags: external recursesubdirs
Source: {win}\Help\*; DestDir: {app}2; Check: IsComponent(1);  Flags: external recursesubdirs

[ Code]
Var
ComponentsList: TNewCheckListBox;

function IsComponent(CompIndex: Integer): Boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 0 to ComponentsList.ItemCount - 1 do
  begin
    if CompIndex <= (ComponentsList.ItemCount - 1) then
      Result := ComponentsList.Checked[CompIndex];
  end;
end;

procedure InitializeWizard();
begin
ComponentsList := TNewCheckListBox.Create(WizardForm);
    with ComponentsList do
    begin
    Parent := WizardForm.WelcomePage;
    SetBounds(ScaleX(190), ScaleY(200), ScaleX(107), ScaleY(100));
    AddCheckBox('Версия', '', 0, True, True, False, True, nil); //индекс №0
    AddCheckBox('Озвучка', '', 0, True, True, False, True, nil); //индекс №1
    AddCheckBox('Russian', '', 0, True, True, False, True, nil); //индекс №2
    AddCheckBox('English', '', 0, True, True, False, True, nil); //индекс №3 и так далее...
    //BorderStyle := bsNone;
    end;
with WizardForm.WelcomeLabel2 do
  begin
    Height := ScaleY(111);
  end;
end;