Управление установкой MSI в приложении Delphi

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

При разработке приложений на Delphi часто возникает необходимость управлять процессом установки MSI-пакета. В данной статье мы рассмотрим, как получить значение прогресса и статус установки MSI, а также как закрыть процесс установки по нажатию кнопки в приложении Delphi.

Для начала необходимо добавить в проект units, которые содержат переводы заголовков API Windows Installer. В нашем случае это unit JwaMsi из библиотеки Jedi-ApiLib. Добавьте следующую строку в раздел uses своего единичного модуля:

uses
  JwaMsi;

Теперь, чтобы получить значение прогресса и статус установки, нам понадобится использовать функцию MsiSetExternalUI, которая является частью API Windows Installer. Эту функцию мы будем вызывать в цикле, пока установка не будет завершена.

Добавьте следующую процедуру в свой единичный модуль:

procedure GetMsiProgress(Status: TMSIStatus; Progress: TMSIProgress);
var
  Message: string;
begin
  Message := MsiGetActiveMessage();
  if Length(Message) > 0 then
  begin
    if Pos('Progress=', Message) > 0 then
    begin
      Progress := StrToIntDef(Trim(Copy(Message, Pos('Progress=', Message) + 8)), 0);
      Status := msistatusProgress;
    end
    else if Pos('Finish=', Message) > 0 then
    begin
      Progress := StrToIntDef(Trim(Copy(Message, Pos('Finish=', Message) + 7)), 0);
      Status := msistatusFinish;
    end
    else
      Status := msistatusNone;
  end;
end;

В данной процедуре мы вызываем функцию MsiGetActiveMessage, чтобы получить текущее сообщение от установщика. Если сообщение содержит информацию о прогрессе, мы извлекаем это значение и устанавливаем соответствующий статус. В противном случае статус устанавливается в msistatusNone.

Теперь, чтобы показать прогресс и статус установки в своем приложении, вы можете использовать следующую процедуру:

procedure ShowMsiProgress(Progress: TMSIProgress; Status: TMSIStatus);
begin
  case Status of
    msistatusNone:
      BeginUpdate;
      LabelProgress.Caption := 'Установка не началась';
      EndUpdate;
    msistatusProgress:
      BeginUpdate;
      LabelProgress.Caption := Format('Прогресс: %d%%', [Progress]);
      EndUpdate;
    msistatusFinish:
      BeginUpdate;
      LabelProgress.Caption := 'Установка завершена';
      EndUpdate;
  end;
end;

В данной процедуре мы просто обновляем надпись на форме в зависимости от текущего статуса и прогресса установки.

Теперь, чтобы запустить установку MSI-пакета и отслеживать прогресс, вы можете использовать следующую процедуру:

procedure StartMsiInstallation(MSIPath: string);
var
  MSIHandle: TMSIHandle;
  MSIProgress: TMSIProgress;
  MSIStatus: TMSIStatus;
begin
  MSIHandle := MsiCreateRecord(1);
  MSIHandle.AddString(MSIPath);
  if MsiSetExternalUI(MSIHandle, @GetMsiProgress) then
  begin
    while MSIStatus <> msistatusFinish do
    begin
      ShowMsiProgress(MSIProgress, MSIStatus);
      Sleep(100);
      MsiGetActiveMessage();
    end;
  end;
  MsiCloseHandle(MSIHandle);
end;

В данной процедуре мы создаем запись MSI и добавляем в нее путь к MSI-пакету. Затем мы вызываем функцию MsiSetExternalUI, передавая ей адрес нашей процедуры GetMsiProgress. В цикле мы вызываем MsiGetActiveMessage, чтобы получить текущее сообщение от установщика, и показываем прогресс и статус установки с помощью процедуры ShowMsiProgress.

Наконец, чтобы закрыть процесс установки по нажатию кнопки в приложении Delphi, вам понадобится вызвать функцию MsiCancelAction. Добавьте следующую процедуру в свой единичный модуль:

procedure CancelMsiInstallation;
begin
  MsiCancelAction;
end;

И свяжите ее с событием нажатия кнопки в своем приложении.

Вот и все! Теперь вы можете управлять процессом установки MSI в своем приложении Delphi, получать значение прогресса и статус установки, а также закрывать процесс установки по нажатию кнопки.

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

В данном контексте рассматривается управление процессом установки MSI-пакета в приложении, разработанном на языке программирования Delphi. Описывается, как получить значение прогресса и статус установки MSI, а также как закрыть процесс установки по нажати

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

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

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