Inno Setup：如何在AfterInstall中调整进度条展示数据库恢复进度

核心逻辑 #

把安装总进度拆成两半：文件提取占50%，数据库恢复占50%。先调整进度条的总步数，再分别控制两个阶段的进度更新，避免默认进度逻辑覆盖自定义进度。

具体操作步骤 #

1. 声明全局变量 #

在[Code]段顶部加变量，用来追踪进度状态：

var
  FileExtractTotalSteps: Integer;
  CurrentProgressPos: Integer;

2. 初始化总进度步数 #

在安装开始前，把进度条总步数翻倍，预留出数据库恢复的50%空间：

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
  begin
    // 先拿到默认文件提取的总步数
    FileExtractTotalSteps := WizardForm.ProgressBar.Max;
    // 总步数翻倍，让数据库恢复占后半段
    WizardForm.ProgressBar.Max := FileExtractTotalSteps * 2;
    CurrentProgressPos := 0;
  end;
end;

3. 拦截文件提取的进度更新 #

重写进度变化事件，把文件提取的进度映射到总进度的前50%：

procedure CurProgressChanged(CurProgress, MaxProgress: Integer);
begin
  if CurStep = ssInstall then
  begin
    // 把文件提取的进度按比例缩到前50%
    CurrentProgressPos := Round((CurProgress / MaxProgress) * FileExtractTotalSteps);
    WizardForm.ProgressBar.Position := CurrentProgressPos;
  end;
end;

4. 在AfterInstall里分步更新恢复进度 #

把数据库恢复拆成若干小步骤，每完成一步就更新一次进度，确保界面实时刷新：

procedure DatabaseRestoreHandler(Sender: TObject);
var
  RestoreSubSteps: Integer;
  i: Integer;
begin
  // 根据实际恢复流程拆分步骤，比如拆成8步或10步
  RestoreSubSteps := 8;
  for i := 1 to RestoreSubSteps do
  begin
    // 这里替换成你的实际恢复操作：比如执行SQL脚本、导入数据文件等
    // ...

    // 每完成一步，进度增加总进度的(50%/步骤数)
    CurrentProgressPos := FileExtractTotalSteps + Round((i / RestoreSubSteps) * FileExtractTotalSteps);
    WizardForm.ProgressBar.Position := CurrentProgressPos;
    // 强制刷新界面，避免进度卡住不显示
    WizardForm.Update;
  end;
end;

5. 绑定到Run段的AfterInstall #

在[Run]段里指定恢复函数：

[Run]
Filename: "{app}\your-db-restore.exe"; AfterInstall: DatabaseRestoreHandler; Flags: waituntilterminated

踩坑排查 #

• 如果进度条直接跳满：检查CurProgressChanged里的逻辑，确保文件提取阶段只更新前50%的进度，没让默认进度直接拉满。
• 如果进度没变化：确认恢复循环里调用了WizardForm.Update，否则UI线程被阻塞，进度条不会实时刷新。
• 若恢复操作极耗时：尽量把大操作拆成多个小步骤，避免单次阻塞太久导致界面假死。

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