[serg aka lain]

Хочю сделать в инсталяторе при установке такое как на рисунке . »

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.

[Components]
Name: "compon1"; Description: "Язык субтитров"; Types: "full compact custom"; Flags: fixed; 
Name: "compon1\russian"; Description: "Русский"; Flags: exclusive;
Name: "compon1\english"; Description: "Английский"; Flags: exclusive;
Name: "compon2"; Description: "Язык озвучки"; Types: "full compact custom"; Flags: fixed; 
Name: "compon2\russian"; Description: "Русский"; Flags: exclusive;
Name: "compon2\english"; Description: "Английский"; Flags: exclusive; 

[code]
procedure InitializeWizard();
begin
  with WizardForm do
  begin
    TypesCombo.Hide;
    with SelectComponentsLabel do
    begin
      Height := Height + ScaleY(21);
    end;
  end;
end;