progress-bar – Inno Setup Run部分的简单进度页面

前端之家收集整理的这篇文章主要介绍了progress-bar – Inno Setup Run部分的简单进度页面前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我的安装程序非常简单,它基本上是:

>欢迎页面
>进展页面
>最终页面

欢迎页面和最终页面是标准页面(只需一个按钮).
在Progress页面,我正在静默安装一堆其他程序.

实际的脚本是在[Run]部分中安装每个程序.
问题是酒吧达到100%然后停留在那里.
我只能更改消息文本.

我想要实现的是使用Pascal脚本显示进度(因为它可以让我有更多的灵活性),例如:

  1. procedure InitializeWizard;
  2. begin
  3. ProgressPage.SetProgress(1,100);
  4. exec(.......)
  5. ProgressPage.SetProgress(15,100);
  6. exec(.......)
  7. ProgressPage.SetProgress(40,100);
  8. ...
  9. ...
  10. end;

这样我就可以显示更准确的进度条.这就是我所拥有的(模拟安装.从一个例子中得到):

  1. [Code]
  2.  
  3. var
  4. ProgressPage: TOutputProgressWizardPage;
  5.  
  6. procedure InitializeWizard;
  7. begin
  8. ProgressPage := CreateOutputProgressPage('My App','');
  9. end;
  10.  
  11. function NextButtonClick(CurPageID: Integer): Boolean;
  12. var
  13. I: Integer;
  14. begin
  15. if CurPageID = wpWelcome then begin
  16. ProgressPage.SetText('Starting installation...','');
  17. ProgressPage.SetProgress(0,0);
  18. ProgressPage.Show;
  19. try
  20. for I := 0 to 10 do begin
  21. ProgressPage.SetProgress(I,10);
  22. Sleep(100);
  23. end;
  24. finally
  25. ProgressPage.Hide;
  26. end;
  27. end else
  28. Result := True;
  29. end;

问题是,当我构建安装程序时,它不显示欢迎页面(安装程序正在运行,但没有显示任何内容).

我做错了什么?

先谢谢你!

解决方法

您可以使用WizardForm.ProgressGauge控制代码中的实际进度条位置.

猜你在找的Delphi相关文章