Inno Setup：将安装活动静态文本改为动态可调整列表框的实现问询

当然可以实现！这个需求在Inno Setup里完全能搞定，我来一步步给你拆解具体怎么做：

1. 先在安装对话框里添加列表框控件 #

首先我们要把默认的静态状态标签（StatusLabel）隐藏掉，然后创建一个列表框控件放在进度条下方。关键是要设置好控件的锚点，让它能跟着对话框大小自动调整。

在[Code]段里添加以下代码：

var
  LogListBox: TNewListBox;

procedure InitializeWizard;
begin
  // 隐藏默认的状态文本标签
  WizardForm.StatusLabel.Visible := False;
  
  // 创建自定义列表框
  LogListBox := TNewListBox.Create(WizardForm);
  with LogListBox do
  begin
    Parent := WizardForm;
    // 和原来的状态标签对齐
    Left := WizardForm.StatusLabel.Left;
    // 放在进度条下方，留一点间距
    Top := WizardForm.ProgressBar.Top + WizardForm.ProgressBar.Height + 8;
    Width := WizardForm.StatusLabel.Width;
    // 高度自适应到对话框底部，留一点边距
    Height := WizardForm.ClientHeight - Top - 16;
    // 设置锚点，让控件随对话框缩放自动调整大小
    Anchors := [akLeft, akTop, akRight, akBottom];
    // 添加垂直滚动条，内容过多时可以滚动查看
    ScrollBars := ssVertical;
    // 匹配原标签的字体和样式，保持界面统一
    Font.Assign(WizardForm.StatusLabel.Font);
    Color := WizardForm.StatusLabel.Color;
    ItemHeight := WizardForm.StatusLabel.Font.Height + 4;
  end;
end;

2. 实时捕获安装操作并写入列表框 #

接下来要让安装过程中的每一步操作都自动显示到列表框里。Inno Setup提供了OnStatusMsg事件，每次安装程序发送状态消息时都会触发这个事件，我们只需要把消息添加到列表框即可：

procedure OnStatusMsg(Sender: TObject; const Msg: String);
begin
  if LogListBox <> nil then
  begin
    // 将新的操作消息添加到列表框
    LogListBox.Items.Add(Msg);
    // 自动滚动到最后一行，确保用户能看到最新操作
    LogListBox.ItemIndex := LogListBox.Items.Count - 1;
  end;
end;

// 别忘了在InitializeWizard里绑定这个事件
procedure InitializeWizard;
begin
  // ... 前面创建列表框的代码 ...
  
  // 绑定状态消息事件，实时捕获安装操作
  WizardForm.OnStatusMsg := @OnStatusMsg;
end;

如果还想捕获更详细的日志（比如自定义的安装日志），可以自己写一个日志函数，同时输出到Inno的默认日志和列表框：

procedure CustomLog(const Msg: String);
begin
  // 保留原有的日志记录（可选）
  Log(Msg);
  // 同步到列表框
  if LogListBox <> nil then
  begin
    LogListBox.Items.Add(Msg);
    LogListBox.ItemIndex := LogListBox.Items.Count - 1;
  end;
end;

之后在你的自定义安装步骤里调用CustomLog('正在注册组件...')这样的代码，就能把自定义操作也显示到列表框里。

3. 确保列表框完全自适应 #

我们已经通过Anchors属性设置了自适应，但如果需要更精细的控制（比如调整边距），可以绑定对话框的大小变化事件：

procedure WizardFormResize(Sender: TObject);
begin
  if LogListBox <> nil then
  begin
    // 重新计算宽度和高度，确保和对话框边缘保持一致间距
    LogListBox.Width := WizardForm.ClientWidth - LogListBox.Left * 2;
    LogListBox.Height := WizardForm.ClientHeight - LogListBox.Top - 16;
  end;
end;

// 在InitializeWizard里添加绑定
procedure InitializeWizard;
begin
  // ... 前面的代码 ...
  
  WizardForm.OnResize := @WizardFormResize;
end;

不过一般来说，Anchors属性已经足够应付大部分场景了，这个是额外的保障措施。

最后测试一下 #

完成以上代码后，编译你的安装包，运行时就能看到进度条下方的列表框会实时显示每一步安装操作，拖动对话框调整大小，列表框也会自动跟着缩放，完全满足你的需求！

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