用inno setup制作安装包会发现一个问题。
默认安装时候的进度条只是文件提取的进度。
当文件提取完成了进度条就已经100%
这时候如果你[Run]
里面运行的东西比较多，就会显得安装进度100%之后一直卡在那里，卡了半天才弹出安装完成界面。

那如何解决这个问题呢？

经过一番搜索，发现这个并没有什么好的控制方法，只有一些Workaround。
思路就是在提取文件一开始，修改进度条刻度的最大值，比如把最大值扩大一倍，这样提取文件部分完成就只能走到进度条的1/2

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

[Files]
Source: ".ico.ico"; DestDir: "{app}"; Flags: ignoreversion;BeforeInstall:SetProgressBarMax(2);
 
[Run]
Filename: "{#Temppath}Bin2013vcredist_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;