我使用此代码来显示已用时间、百分比时间和估计时间进度:
[Code]
function GetTickCount: DWORD;
external '[email protected] stdcall';
var
StartTick: DWORD;
PercentLabel: TNewStaticText;
ElapsedLabel: TNewStaticText;
RemainingLabel: TNewStaticText;
function TicksToStr(Value: DWORD): string;
var
I: DWORD;
Hours, Minutes, Seconds: Integer;
begin
I := Value div 1000;
Seconds := I mod 60;
I := I div 60;
Minutes := I mod 60;
I := I div 60;
Hours := I mod 24;
Result := Format('%.2d:%.2d:%.2d', [Hours, Minutes, Seconds]);
end;
procedure InitializeWizard;
begin
PercentLabel := TNewStaticText.Create(WizardForm);
PercentLabel.Parent := WizardForm.ProgressGauge.Parent;
PercentLabel.Left := 0;
PercentLabel.Top := WizardForm.ProgressGauge.Top +
WizardForm.ProgressGauge.Height + 12;
ElapsedLabel := TNewStaticText.Create(WizardForm);
ElapsedLabel.Parent := WizardForm.ProgressGauge.Parent;
ElapsedLabel.Left := 0;
ElapsedLabel.Top := PercentLabel.Top + PercentLabel.Height + 4;
RemainingLabel := TNewStaticText.Create(WizardForm);
RemainingLabel.Parent := WizardForm.ProgressGauge.Parent;
RemainingLabel.Left := 0;
RemainingLabel.Top := ElapsedLabel.Top + ElapsedLabel.Height + 4;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpInstalling then
StartTick := GetTickCount;
end;
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
if CurPageID = wpInstalling then
begin
Cancel := False;
if ExitSetupMsgBox then
begin
Cancel := True;
Confirm := False;
PercentLabel.Visible := False;
ElapsedLabel.Visible := False;
RemainingLabel.Visible := False;
end;
end;
end;
procedure CurInstallProgressChanged(CurProgress, MaxProgress: Integer);
var
CurTick: DWORD;
begin
CurTick := GetTickCount;
PercentLabel.Caption :=
Format('Done: %.2f %%', [(CurProgress * 100.0) / MaxProgress]);
ElapsedLabel.Caption :=
Format('Elapsed: %s', [TicksToStr(CurTick - StartTick)]);
if CurProgress > 0 then
begin
RemainingLabel.Caption :=
Format('Remaining: %s', [TicksToStr(
((CurTick - StartTick) / CurProgress) * (MaxProgress - CurProgress))]);
end;
end;
此代码与我的代码一起显示:
如何更新进度条使其与进度条末尾100%匹配?
我需要添加更多信息吗? (抱歉我的英语不好)
对此你无能为力。
在现代版本的 Windows 上,使用 Aero 主题,进度条具有“动画”效果。当您更改进度条位置时,它不会直接跳转到该位置,而是以动画方式跳转。为了使动画正常工作,必须泵送 Window 消息队列。
在安装的最后步骤中(复制文件后),Inno Setup 会短暂停止并且不会泵入队列。因此,虽然进度条实际上设置为 100% 位置,并且调用
CurInstallProgressChanged
且 CurProgress
等于 MaxProgress
,但从视觉上看,进度条尚未达到 100%,因为动画正在等待处理。而且动画实际上永远不会完成,因为在允许动画完成之前进度条被隐藏了。
如果您在 Windows 中禁用视觉主题(将进度条恢复为传统的无动画模式),您会发现问题消失了。
以下屏幕截图均来自同一安装的 Windows 7。
Windows 经典主题:
Windows 7 Aero 主题:
您可能能做的就是使用此处显示的技巧:
更改值时禁用.NET进度条动画?
procedure CurInstallProgressChanged(CurProgress, MaxProgress: Integer);
begin
WizardForm.ProgressGauge.Position := WizardForm.ProgressGauge.Position - 1;
WizardForm.ProgressGauge.Update;
{ ... }
end;
虽然你会失去动画效果。
你显然仍然无法达到 100%,但你可以非常接近它: