0

我正在为一个旧游戏（Command & Conquer 1，Win95 版）制作补丁，在某些情况下，执行补丁需要通过一个用 Pascal 脚本编写的函数，这可能需要相当长的时间。

目前，我在页面更改为“安装”页面时执行此操作，因此，在用户选择所有选项并确认安装之后，就在安装程序开始实际添加（和删除）文件之前。

procedure CurPageChanged(CurPageID: Integer);
begin
    if (CurPageID = wpInstalling) then
    begin
        // Rename all saveg_hi.### files to savegame.###
        renameSaveGames();
        // clean up the ginormous files mess left behind if the game was installed from the 'First Decade' compilation pack
        cleanupTFD();
    end;
end;

但由于这个过程可能相当长，我更愿意以某种方式将其添加到实际的安装进度条中。有没有办法做到这一点？

4

1 回答 1

6

您可以ProgressGauge从WizardForm. 以下脚本显示了如何从循环中更新进度条（您只需将其替换为您的操作）。为了安全起见，在执行自定义操作之前保存进度条值，例如最小值、最大值和位置，并在完成后恢复。

[Code]
procedure CurPageChanged(CurPageID: Integer);
var
  I: Integer;
  ProgressMin: Longint;
  ProgressMax: Longint;
  ProgressPos: Longint;
begin
  if CurPageID = wpInstalling then
  begin
    // save the original "configuration" of the progress bar
    ProgressMin := WizardForm.ProgressGauge.Min;
    ProgressMax := WizardForm.ProgressGauge.Max;
    ProgressPos := WizardForm.ProgressGauge.Position;

    // output some status and setup the min and max progress values
    WizardForm.StatusLabel.Caption := 'Doing my own pre-install...';
    WizardForm.ProgressGauge.Min := 0;
    WizardForm.ProgressGauge.Max := 100;
    // here will be your time consuming actions with the progress update
    for I := 0 to 100 do
    begin
      WizardForm.FilenameLabel.Caption := 'I''m on ' + IntToStr(I) + '%';
      WizardForm.ProgressGauge.Position := I;
      Sleep(50);
    end;

    // restore the original "configuration" of the progress bar
    WizardForm.ProgressGauge.Min := ProgressMin;
    WizardForm.ProgressGauge.Max := ProgressMax;
    WizardForm.ProgressGauge.Position := ProgressPos;
  end;
end;
于 2011-12-10T01:05:17.800 回答