如何让Inno Setup安装程序在每个进度页时前置显示？

要实现这个需求，我们可以借助Windows API的SetForegroundWindow函数，配合Inno Setup的进度页面事件来触发窗口前置操作。下面结合你提到的CreateOutputProgressPage代码场景，给出具体实现：

1. 声明Windows API函数 #

首先在脚本的[Code]段顶部添加SetForegroundWindow的声明，这个函数负责将指定窗口带到前台：

[Code]
function SetForegroundWindow(hWnd: HWND): BOOL;
external 'SetForegroundWindow@user32.dll stdcall';

2. 给进度页面添加前置逻辑 #

针对你用CreateOutputProgressPage创建的进度页面，我们可以在两个关键时机触发窗口前置：

• 进度页面显示时（OnShow事件）
• 进度更新时（比如调用SetProgress/SetText前后）

下面是修改后的完整示例代码，适配你的子安装场景：

[Code]
function SetForegroundWindow(hWnd: HWND): BOOL;
external 'SetForegroundWindow@user32.dll stdcall';

procedure InstallDirectX;
var
  ProgressPage: TOutputProgressPage;
  ResultCode: Integer;
begin
  // 创建进度页面
  ProgressPage := CreateOutputProgressPage('安装DirectX', '正在配置必要组件，请稍候...');
  try
    // 显示页面时立即前置窗口
    ProgressPage.Show;
    SetForegroundWindow(MainForm.Handle); // 用主窗口句柄确保整个安装程序前置
    
    // 执行子安装程序（隐藏窗口）
    if not Exec('dxsetup.exe', '/silent /norestart', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
    begin
      // 处理安装失败逻辑
      MsgBox('DirectX安装失败: ' + SysErrorMessage(ResultCode), mbError, MB_OK);
    end;

    // 进度完成时再次触发前置，确保用户能看到安装状态
    ProgressPage.SetProgress(100, 100);
    SetForegroundWindow(MainForm.Handle);
  finally
    ProgressPage.Hide;
  end;
end;

// 运行库安装的过程可以套用同样的逻辑
procedure InstallRuntimeLibraries;
var
  ProgressPage: TOutputProgressPage;
  ResultCode: Integer;
begin
  ProgressPage := CreateOutputProgressPage('安装运行库', '正在部署支持文件...');
  try
    ProgressPage.Show;
    SetForegroundWindow(MainForm.Handle);
    
    if not Exec('vcredist_x64.exe', '/quiet /norestart', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
    begin
      MsgBox('运行库安装失败: ' + SysErrorMessage(ResultCode), mbError, MB_OK);
    end;
    
    ProgressPage.SetProgress(100, 100);
    SetForegroundWindow(MainForm.Handle);
  finally
    ProgressPage.Hide;
  end;
end;

3. 补充说明 #

• 如果希望更频繁地前置窗口（比如子安装过程中定时触发），可以结合TProgressPage的OnTimer事件，设置一个定时器每隔几秒调用一次SetForegroundWindow(MainForm.Handle)。
• 注意：Windows系统对SetForegroundWindow有一些限制（比如防止恶意软件强制弹窗），如果你的安装程序没有被用户主动激活过，可能偶尔会失效，但在用户正常启动安装的场景下基本都能正常工作。
• 优先使用MainForm.Handle作为窗口句柄，这样可以确保整个安装程序主窗口被前置，而不只是单独的进度页面。

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