[Johny777]

Mat_y, В данном скрипте окна "создаются" процедурами. Дело в том, что стандартный TNoteBook - древний предок TPageControl здесь скрыт, и есть только сама форма TWizardForm и в педелах клиентской области в зависимости от индекса текущей страницы становятся видимыми/невидимыми соответствующие элементы интефейса. Всё это наглядно видно в procedure CurPageChanged(CurPageID: Integer);
основного скрипта. Для того чтобы добавить ещё одну страницу между стр. выбора директории и стр. установки необходимо удалить директиву DisableReadyPage=yes из раздела [Setup]. Список страниц такой:

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

Код:

const
  wpWelcome = 1;
  wpLicense = 2;
  wpPassword = 3;
  wpInfoBefore = 4;
  wpUserInfo = 5;
  wpSelectDir = 6;
  wpSelectComponents = 7;
  wpSelectProgramGroup = 8;
  wpSelectTasks = 9;
  wpReady = 10;
  wpPreparing = 11;
  wpInstalling = 12;
  wpInfoAfter = 13;
  wpFinished = 14;

Те страница номер 10 то что нужну
Далее в procedure CurPageChanged(CurPageID: Integer);
добавим следующее (красным выделил имплиментацию новой страницы)

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

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpWelcome: begin
      if PrevCurPageID=wpSelectDir then HideSelectDirPage;
      ShowWelcomePage;
    end;
    wpSelectDir: begin
      if PrevCurPageID=wpWelcome then HideWelcomePage;
      ShowSelectDirPage;
    end;
   
    wpReady: begin
      if PrevCurPageID=wpSelectDir then HideSelectDirPage;
      ShowSelectComonentsPage;
    end;
    
    wpInstalling: begin
      if PrevCurPageID=wpReady then HideSelectComonentsPage;
      ShowInstallingPage;
    end;
  end;
end;

Надеюсь ты понимаешь весь принцип. Те для каждой страницы Действуют 3 процедуры:
CreateИмяСтраницы (где-то во внешних библиотеках при инициализации)
ShowИмяСтраницы
HideИмяСтраницы
Остаётся только описание тела процедур для твоей новой страницы, и оно такое же как и у других страниц, только с твоим содержимым на ней (видео, чекбоксы и пр.)