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;
相关文章
相关标签/搜索