Добавление прогресс-бара в установщик Inno Setup для длительных функций в патче для Command & Conquer 1

Delphi , Программа и Интерфейс , Инсталяция

Добавление прогресс-бара в установщик Inno Setup для длительных функций в патче для Command & Conquer 1

Если вы создаете патч для старых игр, таких как Command & Conquer 1, то, возможно, вам приходится выполнять длительные функции, которые могут занять много времени. В этом случае вам захочется добавить прогресс-бар в установщик Inno Setup, чтобы пользователь мог видеть, на каком этапе находится процесс установки. В этой статье мы рассмотрим, как добавить прогресс-бар для длительных функций в патче для Command & Conquer 1.

Проблема

При создании патча для Command & Conquer 1 вы, возможно, столкнулись с ситуацией, когда некоторые функции, написанные на Паскале, занимают много времени. Вы выполняете эти функции при смене страницы на "установку", то есть после того, как пользователь выбрал все опции и подтвердил установку, но перед тем, как установщик начнет добавлять и удалять файлы. Однако, поскольку процесс может занять много времени, вы хотите добавить его в прогресс-бар установщика.

Решение

Для добавления прогресс-бара в установщик Inno Setup вам нужно контролировать компонент ProgressGauge с страницы установки WizardForm. В приведенном ниже скрипте показано, как обновить прогресс-бар из цикла (которую вы просто замените на свои действия). Для безопасности значения минимума, максимума и положения прогресс-бара сохраняются перед выполнением пользовательских действий и восстанавливаются после их завершения.

procedure CurPageChanged(CurPageID: Integer);
var
  I: Integer;
  ProgressMin: Longint;
  ProgressMax: Longint;
  ProgressPos: Longint;
begin
  if CurPageID = wpInstalling then
  begin
    // Сохранить исходную "конфигурацию" прогресс-бара
    ProgressMin := WizardForm.ProgressGauge.Min;
    ProgressMax := WizardForm.ProgressGauge.Max;
    ProgressPos := WizardForm.ProgressGauge.Position;

    // Вывести статус и настроить минимальное и максимальное значения прогресс-бара
    WizardForm.StatusLabel.Caption := 'Выполнение собственных предварительных установок...';
    WizardForm.ProgressGauge.Min := 0;
    WizardForm.ProgressGauge.Max := 100;
    // Здесь будут ваши длительные действия с обновлением прогресса
    for I := 0 to 100 do
    begin
      WizardForm.FilenameLabel.Caption := 'Я на ' + IntToStr(I) + '%';
      WizardForm.ProgressGauge.Position := I;
      Sleep(50);
    end;

    // Восстановить исходную "конфигурацию" прогресс-бара
    WizardForm.ProgressGauge.Min := ProgressMin;
    WizardForm.ProgressGauge.Max := ProgressMax;
    WizardForm.ProgressGauge.Position := ProgressPos;
  end;
end;

Пример кода на Object Pascal (Delphi)

Если вы используете Delphi для создания своего патча, то можете использовать следующий пример кода для добавления прогресс-бара в установщик Inno Setup:

procedure CurPageChanged(CurPageID: TWizardPage);
var
  I: Integer;
  ProgressMin: Integer;
  ProgressMax: Integer;
  ProgressPos: Integer;
begin
  if CurPageID = wpInstalling then
  begin
    // Сохранить исходную "конфигурацию" прогресс-бара
    ProgressMin := ProgressGauge1.Min;
    ProgressMax := ProgressGauge1.Max;
    ProgressPos := ProgressGauge1.Position;

    // Вывести статус и настроить минимальное и максимальное значения прогресс-бара
    StatusLabel1.Caption := 'Выполнение собственных предварительных установок...';
    ProgressGauge1.Min := 0;
    ProgressGauge1.Max := 100;
    // Здесь будут ваши длительные действия с обновлением прогресса
    for I := 0 to 100 do
    begin
      FilenameLabel1.Caption := 'Я на ' + IntToStr(I) + '%';
      ProgressGauge1.Position := I;
      Sleep(50);
    end;

    // Восстановить исходную "конфигурацию" прогресс-бара
    ProgressGauge1.Min := ProgressMin;
    ProgressGauge1.Max := ProgressMax;
    ProgressGauge1.Position := ProgressPos;
  end;
end;

Заключение

В этой статье мы рассмотрели, как добавить прогресс-бар в установщик Inno Setup для длительных функций в патче для Command & Conquer 1. Используя приведенный выше код, вы можете обновить прогресс-бар во время выполнения длительных действий, чтобы пользователь мог видеть, на каком этапе находится процесс установки.

Создано по материалам из источника по ссылке.

Данный контекст посвящен процессу добавления прогресс-бара в установщик Inno Setup для отображения продвижения длительных функций в патче для игры Command & Conquer 1.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Инсталяция ::