如何修改InnoSetup安装程序，将三类安装配置项整合至单个向导页

核心结论 #

没法通过内置指令实现这个需求，必须用自定义Pascal脚本——InnoSetup默认的向导页是拆分好的，没有内置配置项能把目录选择、开始菜单组、桌面图标这三个模块合并到同一页。

实现思路 #

1. 先禁用默认的三个向导页：目录页、开始菜单组页、任务页
2. 创建一个自定义向导页，在页面上手动添加三个模块的控件：
   • 程序目录选择区：输入框+浏览按钮
   • 开始菜单组选择区：输入框+浏览按钮
   • 桌面图标复选框
3. 给控件绑定事件逻辑，比如点击浏览按钮弹出选择对话框，更新输入框内容
4. 将用户的选择同步到InnoSetup的内置变量（比如{app}对应程序目录，{group}对应开始菜单组，任务状态对应桌面图标选项）
5. 确保安装流程中这些自定义设置能被正常读取和使用

完整参考示例 #

[Setup]
AppName=我的测试程序
AppVersion=1.0
DefaultDirName={pf}\我的测试程序
DefaultGroupName=我的测试程序
DisableDirPage=yes  ; 禁用默认目录页
DisableProgramGroupPage=yes  ; 禁用默认开始菜单组页
DisableTasksPage=yes  ; 禁用默认任务页
OutputDir=Output

[Tasks]
Name: desktopicon; Description: "创建桌面快捷方式"; GroupDescription: "附加任务:"; Flags: unchecked

[Code]
var
  CustomSetupPage: TWizardPage;
  // 程序目录相关控件
  DirLabel: TLabel;
  DirEdit: TEdit;
  DirBrowseButton: TButton;
  // 开始菜单组相关控件
  GroupLabel: TLabel;
  GroupEdit: TEdit;
  GroupBrowseButton: TButton;
  // 桌面图标相关控件
  DesktopIconCheck: TNewCheckBox;

procedure InitializeWizard();
begin
  // 创建自定义向导页
  CustomSetupPage := CreateCustomPage(wpWelcome, '安装选项', '请设置安装目录、开始菜单组及附加任务');

  // --- 程序目录选择区 ---
  DirLabel := TLabel.Create(CustomSetupPage);
  DirLabel.Parent := CustomSetupPage.Surface;
  DirLabel.Caption := '安装目录:';
  DirLabel.Top := 16;
  DirLabel.Left := 16;
  DirLabel.Width := 100;

  DirEdit := TEdit.Create(CustomSetupPage);
  DirEdit.Parent := CustomSetupPage.Surface;
  DirEdit.Top := DirLabel.Top + DirLabel.Height + 4;
  DirEdit.Left := 16;
  DirEdit.Width := CustomSetupPage.Surface.Width - 16 - 75;
  DirEdit.Text := DefaultDirName;

  DirBrowseButton := TButton.Create(CustomSetupPage);
  DirBrowseButton.Parent := CustomSetupPage.Surface;
  DirBrowseButton.Top := DirEdit.Top;
  DirBrowseButton.Left := DirEdit.Left + DirEdit.Width + 8;
  DirBrowseButton.Width := 70;
  DirBrowseButton.Caption := '浏览...';
  DirBrowseButton.OnClick := @DirBrowseButtonClick;

  // --- 开始菜单组选择区 ---
  GroupLabel := TLabel.Create(CustomSetupPage);
  GroupLabel.Parent := CustomSetupPage.Surface;
  GroupLabel.Caption := '开始菜单组:';
  GroupLabel.Top := DirEdit.Top + DirEdit.Height + 16;
  GroupLabel.Left := 16;
  GroupLabel.Width := 100;

  GroupEdit := TEdit.Create(CustomSetupPage);
  GroupEdit.Parent := CustomSetupPage.Surface;
  GroupEdit.Top := GroupLabel.Top + GroupLabel.Height + 4;
  GroupEdit.Left := 16;
  GroupEdit.Width := CustomSetupPage.Surface.Width - 16 - 75;
  GroupEdit.Text := DefaultGroupName;

  GroupBrowseButton := TButton.Create(CustomSetupPage);
  GroupBrowseButton.Parent := CustomSetupPage.Surface;
  GroupBrowseButton.Top := GroupEdit.Top;
  GroupBrowseButton.Left := GroupEdit.Left + GroupEdit.Width + 8;
  GroupBrowseButton.Width := 70;
  GroupBrowseButton.Caption := '浏览...';
  GroupBrowseButton.OnClick := @GroupBrowseButtonClick;

  // --- 桌面图标复选框 ---
  DesktopIconCheck := TNewCheckBox.Create(CustomSetupPage);
  DesktopIconCheck.Parent := CustomSetupPage.Surface;
  DesktopIconCheck.Caption := '创建桌面快捷方式';
  DesktopIconCheck.Top := GroupEdit.Top + GroupEdit.Height + 16;
  DesktopIconCheck.Left := 16;
  DesktopIconCheck.Width := CustomSetupPage.Surface.Width - 32;
  DesktopIconCheck.Checked := False; // 对应Tasks里的unchecked标记
end;

// 程序目录浏览按钮点击事件
procedure DirBrowseButtonClick(Sender: TObject);
var
  Dir: String;
begin
  Dir := DirEdit.Text;
  if BrowseForFolder('选择安装目录', Dir, False) then
  begin
    DirEdit.Text := Dir;
  end;
end;

// 开始菜单组浏览按钮点击事件
procedure GroupBrowseButtonClick(Sender: TObject);
var
  Group: String;
begin
  Group := GroupEdit.Text;
  if BrowseForFolder('选择开始菜单组', Group, True) then
  begin
    GroupEdit.Text := Group;
  end;
end;

// 向导页切换到下一步时，同步设置到内置变量
function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  if CurPageID = CustomSetupPage.ID then
  begin
    // 更新程序目录变量
    WizardForm.DirEdit.Text := DirEdit.Text;
    // 更新开始菜单组变量
    WizardForm.GroupEdit.Text := GroupEdit.Text;
    // 更新桌面图标任务状态
    if DesktopIconCheck.Checked then
      WizardForm.TasksList.Checked[0] := True
    else
      WizardForm.TasksList.Checked[0] := False;
  end;
end;

说明 #

• 示例中通过DisableDirPage=yes等参数禁用了默认页，然后在InitializeWizard里创建自定义页面并添加所有控件
• 点击浏览按钮的逻辑通过BrowseForFolder实现，分别适配目录选择和开始菜单组选择
• NextButtonClick事件里把用户的选择同步到InnoSetup内置的控件变量，确保后续安装流程能正确读取这些设置
• 桌面图标任务的状态和[Tasks]里的定义对应，你可以根据需求调整复选框的默认状态

内容的提问来源于stack exchange，提问作者ElektroStudios