|
修改一个地方: procedure Progress(); var pct: Extended; begin //安装百分比//ProgressLabel.Caption:=IntToStr((WizardForm.ProgressGauge.Position-WizardForm.ProgressGauge.Min)/((WizardForm.ProgressGauge.Max - WizardForm.ProgressGauge.Min)/101)) + '%';pct := (WizardForm.ProgressGauge.Position-WizardForm.ProgressGauge.Min)*100/(WizardForm.ProgressGauge.Max - WizardForm.ProgressGauge.Min);ProgressLabel.Caption:= IntToStr(Round(pct)) + '%';AddToDetaList;end;
|