[YURSHAT]

Как создать свою пустую страницу в инсталляторе? »

Пример

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup

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

[CustomMessages]
ru.PageName=Название моей страницы
ru.PageDescr=Описание моей страницы

[_code]
var
  MyPage: TWizardPage;
  Label1: TLabel;
  
procedure RedesignWizardForm;
begin
  MyPage:= CreateCustomPage(wpWelcome, ExpandConstant('{cm:PageName}'), ExpandConstant('{cm:PageDescr}'));
  
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := MyPage.Surface;
    SetBounds(ScaleX(0), ScaleY(216), ScaleX(417), ScaleY(17));
    Caption := SetupMessage(msgInfoAfterClickLabel);
  end;
end;

procedure InitializeWizard;
begin
  RedesignWizardForm;
end;