[Dodakaedr]

diman_21Ru,

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

Код:

[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}; Flags: external recursesubdirs

[ Code]
Var
ComponentsList: TNewCheckListBox;

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);
    AddCheckBox('Озвучка', '', 0, True, True, False, True, nil);
    AddCheckBox('Russian', '', 0, True, True, False, True, nil);
    AddCheckBox('English', '', 0, True, True, False, True, nil);
    //BorderStyle := bsNone;
    end;
with WizardForm.WelcomeLabel2 do
  begin
    Height := ScaleY(111);
  end;
end;