Запуск и ожидание завершения файла в процессе установки с помощью Inno Setup

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

Запуск и ожидание завершения файла в процессе установки с помощью Inno Setup

При разработке установщиков с помощью Inno Setup может потребоваться загрузить файл с интернета и запустить его в процессе установки, а также дождаться его завершения. В этой статье мы рассмотрим, как это сделать с помощью встроенных функций Inno Setup и альтернативных решений.

Использование встроенных функций Inno Setup

Версия Inno Setup 6.1 и выше поддерживает загрузку файлов встроенными функциями. Чтобы загрузить файл и запустить его в процессе установки, можно использовать функцию Exec в сочетании с WizardForm.NextButtonClick или TWizardPage.NextButtonClick. Ниже приведен пример кода, который загружает файл jdk-8u111-windows-x64.exe и запускает его после завершения загрузки:

[Code]

procedure InitializeWizard;
begin
  WizardForm.NextButtonClick := NextButtonClick;
  WizardForm.Add(
    'http://files.downloadnow-1.com/s/software/15/62/36/39/jdk-8u111-windows-x64.exe?token=1479511171_b51e94edd4e002c94fd60a570a7dd270&fileName=jdk-8u111-windows-x64.exe',
    ExpandConstant('{tmp}\jdk-8u111-windows-x64.exe'), '', '');
end;

function NextButtonClick(Sender: TObject): Boolean;
var
  ResultCode: Integer;
begin
  Result := Exec(ExpandConstant('{tmp}\jdk-8u111-windows-x64.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
  if not Result then
  begin
    MsgBox('Cannot execute sub-installer', mbError, MB_OK);
  end
    else
  begin
    Result := (ResultCode = 0);
    if not Result then
    begin
      MsgBox('Sub-installer failed', mbError, MB_OK);
    end
  end;
end;

Использование Inno Download Plugin (IDP)

Если вам нужно использовать более старую версию Inno Setup, можно воспользоваться Inno Download Plugin (IDP). Это плагин, который добавляет функциональность загрузки файлов в Inno Setup. Чтобы использовать IDP, нужно включить файл idp.iss в свой проект и использовать глобальную структуру IDPForm. Ниже приведен пример кода, который загружает два файла и запускает второй после завершения загрузки:

#include <idp.iss>

[Code]

procedure InitializeWizard;
begin
  idpAddFile(
    'http://www-us.apache.org/dist/tomcat/tomcat-9/v9.0.0.M13/bin/apache-tomcat-9.0.0.M13-windows-x64.zip',
    ExpandConstant('{tmp}\apache-tomcat-9.0.0.M13-windows-x64.zip'));
  idpAddFile(
    'http://files.downloadnow-1.com/s/software/15/62/36/39/jdk-8u111-windows-x64.exe?token=1479511171_b51e94edd4e002c94fd60a570a7dd270&fileName=jdk-8u111-windows-x64.exe',
    ExpandConstant('{tmp}\jdk-8u111-windows-x64.exe'));
  idpDownloadAfter(wpSelectDir);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  ResultCode: Integer;
  FileName: string;
begin
  if CurPageID = IDPForm.Page.ID then
  begin
    FileName := ExpandConstant('{tmp}\jdk-8u111-windows-x64.exe');
    Result := Exec(FileName, '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
    if not Result then
    begin
      MsgBox('Cannot execute sub-installer', mbError, MB_OK);
    end
      else
    begin
      Result := (ResultCode = 0);
      if not Result then
      begin
        MsgBox('Sub-installer failed', mbError, MB_OK);
      end
    end;
  end
    else
  begin
    Result := True;
  end;
end;

Использование DwinsHs

Другой альтернативой является DwinsHs (Downloader for Inno Setup). Это плагин, который добавляет функциональность загрузки файлов в Inno Setup, подобно IDP. Чтобы использовать DwinsHs, нужно включить файл dwinshs.iss в свой проект и использовать глобальную структуру DwinsHsForm. Ниже приведен пример кода, который загружает файл и запускает его после завершения загрузки:

#include <dwinshs.iss>

[Code]

procedure InitializeWizard;
begin
  DwinsHsForm.Add(
    'http://files.downloadnow-1.com/s/software/15/62/36/39/jdk-8u111-windows-x64.exe?token=1479511171_b51e94edd4e002c94fd60a570a7dd270&fileName=jdk-8u111-windows-x64.exe',
    ExpandConstant('{tmp}\jdk-8u111-windows-x64.exe'));
  DwinsHsForm.DownloadAfter(wpSelectDir);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  ResultCode: Integer;
begin
  if CurPageID = DwinsHsForm.Page.ID then
  begin
    Result := Exec(ExpandConstant('{tmp}\jdk-8u111-windows-x64.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
    if not Result then
    begin
      MsgBox('Cannot execute sub-installer', mbError, MB_OK);
    end
      else
    begin
      Result := (ResultCode = 0);
      if not Result then
      begin
        MsgBox('Sub-installer failed', mbError, MB_OK);
      end
    end;
  end
    else
  begin
    Result := True;
  end;
end;

Подтвержденный ответ

Чтобы загрузить файл с интернета и запустить его в процессе установки с помощью Inno Setup, можно использовать встроенные функции, Inno Download Plugin (IDP) или DwinsHs. В каждом из этих случаев

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

При разработке установщика с помощью Inno Setup может потребоваться загрузить файл из интернета и запустить его в процессе установки, дожидаясь его завершения.

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

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

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