inno setup 安装界面进度条控制

用inno setup制作安装包会发现一个问题。

默认安装时候的进度条只是文件提取的进度。

当文件提取完成了进度条就已经100%

这时候如果你[Run]

里面运行的东西比较多，就会显得安装进度 100%之后一直卡在那里，卡了半天才弹出安装完成界面。

那如何解决这个问题呢？

经过一番搜索，发现这个并没有什么好的控制方法，只有一些Workaround。

思路就是在提取文件一开始，修改进度条刻度的最大值，比如把最大值扩大一倍，这样提取文件部分完成就只能走到进度条的1/2

然后我们在 [Run]里面用代码去更新我们的剩下的进度就好了

[Files]
Source: ".\ico.ico"; DestDir: "{app}"; Flags: ignoreversion;BeforeInstall:SetProgressBarMax(2);

[Run]
Filename: "{#Temppath}\Bin\2013\vcredist_x64.exe"; Parameters: "/quiet /norestart"; Flags: 64bit waituntilterminated runhidden; Check: Is64BitInstallMode; \
BeforeInstall: UpdateProgressbar(60); AfterInstall: UpdateProgressBar(70);

[Code]
procedure SetProgressBarMax(Ratio: Integer);
begin
  WizardForm.ProgressGauge.Max := WizardForm.ProgressGauge.Max * Ratio;
end;

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