[Serega]

Вопрос может уже звучал: как добавить на страницу выбора компонентов »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Types]
Name: full; Description: Полная установка
Name: custom; Description: Выборочная установка; Flags: iscustom

[Components]
Name: a; Description: Моя программа™; Types: full custom
Name: a\a; Description: Руководство пользователя; Types: full
Name: a\a\a; Description: Русский; Flags: exclusive
Name: a\a\b; Description: English; Flags: exclusive
Name: a\b; Description: Справка; Types: full

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Components: a
Source: compiler:Examples\Readme-ru.txt; DestDir: {app}; Components: a\a\a
Source: compiler:Examples\Readme-en.txt; DestDir: {app}; Components: a\a\b
Source: compiler:Examples\MyProg.chm; DestDir: {app}; Components: a\b

[Code]
var
  btn1, btn2: TButton;

procedure btnClick(Sender: TObject);
var
  i: Integer;
begin
  // не знаю почему, но при WizardForm.SelectComponentsPage.ControlCount-1 выскакивает сообщение:
  // 'List index out of bounds.'
  for i:= 0 to WizardForm.SelectComponentsPage.ControlCount-2 do
    case TButton(Sender) of
      btn1: WizardForm.ComponentsList.Checked[i]:= True;
      btn2: WizardForm.ComponentsList.Checked[i]:= False;
    end;
end;

procedure InitializeWizard();
begin
  btn1:= TButton.Create(WizardForm);
  with btn1 do
    begin
      SetBounds(260,210,75,25);
      Caption:= 'Выбрать все';
      OnClick:= @btnClick;
      Parent:= WizardForm.SelectComponentsPage;
    end;

  btn2:= TButton.Create(WizardForm);
  with btn2 do
    begin
      SetBounds(340,210,75,25);
      Caption:= 'Снять выбор';
      OnClick:= @btnClick;
      Parent:= WizardForm.SelectComponentsPage;
    end;
end;

подскажите пожалуйста, можно ли как-то сделать в этом(Вашем) скрипте »

Это не мой, я только чего-то в нём исправлял, уже точно не помню что конкретно...

Показывает на Click OK to stop the service, or Cancel to abort installation.= »

закоментируйте (; ) в скрипте (секция [CustomMessages]) те строчки, на которые ругается компилятор...