安装程序 – Inno Setup：如何操作Run部分的进度条？

[Run]
Filename: "msiexec.exe"; Parameters: "/i ""msxml.msi"" /quiet"; \
    StatusMsg: "MSXMl..."; Flags: runascurrentuser
Filename: "msiexec.exe"; Parameters: "/i ""capicom_dc_sdk.msi"" /quiet"; \
    StatusMsg: "CAPICOm..."; Flags: runascurrentuser

更新进度条相当困难,而另一个进程正在运行.

我没有看到一个努力点,因为你不太可能告诉子安装程序的进度,所以你不知道要更新进度条的内容.

除特殊情况外,子安装程序提供API以报告其进度.
有关示例,请参阅：

> Inno Setup Get progress from .NET Framework 4.5 (or higher) installer to update progress bar position或
> Inno Setup – Make Inno Setup Installer report its installation progress status to master installer.

要根据已完成的子安装程序的数量更新进度条,您可以执行以下操作：

[Run]
Filename: "process1"; BeforeInstall: updateProgress(0); AfterInstall: updateProgress(33)
Filename: "process2"; AfterInstall: updateProgress(66)
Filename: "process3"; AfterInstall: updateProgress(100)

[Code]

procedure updateProgress(Position: Integer);
begin
  WizardForm.ProgressGauge.Position := Position * WizardForm.ProgressGauge.Max div 100;
end;

要划分安装文件的部分进度范围,将其余部分划分为运行子安装程序,请参阅
Inno Setup – Prevent extraction of files from setting progress bar to 100%

另一种选择是使用“选取框”(=无限)进度条样式.

见Progress bar control styles.

[Run]
Filename: "process1"; BeforeInstall: SetMarqueeProgress(true)
Filename: "process2"
Filename: "process3"; AfterInstall: SetMarqueeProgress(false)

[Code]

procedure SetMarqueeProgress(Marquee: Boolean);
begin
  if Marquee then
  begin
    WizardForm.ProgressGauge.Style := npbstMarquee;
  end
    else
  begin
    WizardForm.ProgressGauge.Style := npbstNormal;
  end;
end;

即使在Windows XP上也可以使用,尽管不再列在官方的Microsoft文档中.在Windows XP SP3上测试.