Inno setup 完成安装时进度条看起来卡住了

Inno setup 完成安装时进度条看起来卡住了,inno-setup,pascalscript,Inno Setup,Pascalscript,进度条在完成安装时看起来卡住了,我使用的是UpdateProgress,如果我选择将install director安装到SSD驱动器,则完成安装所需的时间比平时多,因此我想显示正在发生的详细情况,或者是否有任何方法可以操纵进度条以显示其安装没有卡住。我尝试了标记进度条,但我想向用户展示它做了多少。那么有没有什么方法可以同时使用这两种方法(这可能是个坏主意) “它做了多少”什么?它是否卡在您的运行任务中?什么是{tmp}\test和{tmp}\cht?它不应该是7zip二进制文件吗? [Run]

进度条在完成安装时看起来卡住了,我使用的是
UpdateProgress
,如果我选择将install director安装到SSD驱动器,则完成安装所需的时间比平时多,因此我想显示正在发生的详细情况,或者是否有任何方法可以操纵进度条以显示其安装没有卡住。我尝试了标记进度条,但我想向用户展示它做了多少。那么有没有什么方法可以同时使用这两种方法(这可能是个坏主意)

“它做了多少”什么?它是否卡在您的
运行任务中?什么是
{tmp}\test
{tmp}\cht
?它不应该是7zip二进制文件吗?
[Run]
filename: {tmp}\test; Parameters: "x ""{tmp}\test.7z"" -o""{sd}\users\{%username|DefaultValue}\appdata\localLow\"" * -r -aoa"; ; Flags: runhidden runascurrentuser waituntilterminated; BeforeInstall: UpdateProgress(20);AfterInstall: UpdateProgress(50);
Filename: {tmp}\cht; Parameters: "x ""{tmp}\{code:GetnewFile}"" -o""{code:GetDir|0}"" * -r -aoa"; Flags: runhidden runascurrentuser;  BeforeInstall: UpdateProgress(60);AfterInstall: UpdateProgress(100);

[Code]
procedure UpdateProgress(Position: Integer);
begin
  WizardForm.ProgressGauge.Position := Position * WizardForm.ProgressGauge.Max div 100;
end;