[Johny777]

GoshaPolo, из своего опыта скажу - менять местами геморно. Нужно учитывать что находясь на странице
выбора директории мы находимся на странице выбора папки меню пуск и наоборот. Короче путаница. Поэтому
проще скрыть родную страницу, создать новую (где надо) и перекинуть на неё всё с родной страницы вот так:

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

Код:

[Setup]
AppName=DisksInfo
VersionInfoVersion=5.0
AppVerName=DisksInfo
DefaultDirName={pf}\Path
DefaultGroupName=Default

[Icons]
Name: {group}\Notepad; Filename: notepad.exe


[code]
var
  NewGroupPage: TWizardPage;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := PageID = wpSelectProgramGroup;
end;

function CreateNewGroupPage(const AfterPageID: Integer): TWizardPage;
begin
  Result := CreateCustomPage(AfterPageID, SetupMessage(msgWizardSelectProgramGroup), SetupMessage(msgSelectStartMenuFolderDesc));
  with WizardForm do
  begin
    SelectGroupBitmapImage.Parent := Result.Surface;
    SelectStartMenuFolderLabel.Parent := Result.Surface;
    SelectStartMenuFolderBrowseLabel.Parent := Result.Surface;
    GroupEdit.Parent := Result.Surface;
    GroupBrowseButton.Parent := Result.Surface;
    NoIconsCheck.Parent := Result.Surface;
  end;
end;

procedure InitializeWizard();
begin
  NewGroupPage := CreateNewGroupPage(wpWelcome);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    NewGroupPage.ID: MsgBox('We are on Select Start Folder Page', mbInformation, MB_OK);
    wpSelectDir: MsgBox('We are on Select Dir Page', mbInformation, MB_OK);
  end;
end;

но если настаиваешь на том чтоб именно поменять то вот тебе пример как поменять страницы выбора директории установки и страницу выбора компонентов местами
автор этого кода Добров:

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

Код:

[Setup]
AppName=My program
AppVerName=My program 1.5
DefaultDirName={pf}\My program
;DisableDirPage=True

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

[Components]
Name: WB; Description: 'Мой компьютер' - Настройки; ExtraDiskSpaceRequired: 1048576

[code]
function OnShouldSkipPage(Sender: TWizardPage): Boolean;
begin
    if WizardForm.ComponentsList.Items.Count > 0 then WizardForm.Tag:= 1; // отображаются страницы выбора папки и компонентов
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
  Case CurPageID of
  wpSelectDir: if WizardForm.Tag = 1 then
    begin
        WizardForm.SelectDirPage.Notebook.ActivePage:= WizardForm.SelectComponentsPage;
        WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectComponents)
        WizardForm.Hint:= WizardForm.PageDescriptionLabel.Caption; // запомнить SetupMessage(msgSelectDirDesc)
        WizardForm.PageDescriptionLabel.Caption:= SetupMessage(msgSelectComponentsDesc)
    end;
  wpSelectComponents: if WizardForm.Tag = 1 then
    begin
        WizardForm.SelectComponentsPage.Notebook.ActivePage:= WizardForm.SelectDirPage;
        WizardForm.DiskSpaceLabel.Caption:= WizardForm.ComponentsDiskSpaceLabel.Caption;
        WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectDir)
        WizardForm.PageDescriptionLabel.Caption:= WizardForm.Hint // иначе вместо названия программы [name]
    end;
  end;
End;

Procedure InitializeWizard;
Begin
    PageFromID(wpSelectDir).OnShouldSkipPage:= @OnShouldSkipPage
end;

=====================================================================

cliff99, фриарками не увлекаюсь. Помочь не могу

как все утверждают »

К таковым не отношусь. Как фанат халфы добавлю: мод в ***** тк отсебятина и тем самым поганит шедевр. На Аликс смотреть страшно