[saurn]

почему не обрабатывается код, в частности не происходит переименование заголовка формы »

Работает.

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

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DisableWelcomePage=yes
OutputDir={#SourcePath}


[Code]
const
    PAGES_COUNT = 3;

var
    pageArray: array of TWizardPage;


procedure CreateCustomPages(const AfterID, Count: Integer; out ResultArray: array of TWizardPage);
var
    i, Len: Integer;
begin
    Len := GetArrayLength(ResultArray);
    SetArrayLength(ResultArray, Len + Count);

    for i := Len + Count - 1 downto Len do
      ResultArray[i] := CreateCustomPage(AfterID, #0, #0);
end;


procedure ModifyCustomPages();
var
    Len: Integer;
begin
    Len := GetArrayLength(pageArray);
    
    with pageArray[0] do
    begin
        Caption := 'Первая страница';
        Description := 'Description';
    end;

    with pageArray[1] do
    begin
        Caption := 'Вторая страница';
        Description := 'Description';
    end;

    with pageArray[Len - 1] do
    begin
        Caption := 'Третья страница';
        Description := 'Description';
    end;
end;


procedure CurPageChanged(CurPageID: Integer);
var
    Len: Integer;
begin
    Len := GetArrayLength(pageArray);

    WizardForm.Caption := SetupMessage(msgSetupWindowTitle);

    case PageFromID(CurPageID) of
        pageArray[0]: WizardForm.Caption := 'Первая страница';
        pageArray[1]: WizardForm.Caption := 'Вторая страница';
        pageArray[Len - 1]: WizardForm.Caption := 'Третья страница';
    end;
end;


procedure InitializeWizard();
begin
    CreateCustomPages(wpWelcome, PAGES_COUNT, pageArray);
    ModifyCustomPages();
end;

как запустить установку после выбора CheckBox »

Например:

Код:

if CheckBox.Checked then нужное действие