Устранение ошибки MSI 1602 при бесшумной установке приложения на несколько дисков в Delphi

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

При разработке приложений с использованием Delphi часто возникает необходимость создания установщика для их распределения. Одним из популярных форматов установщиков является MSI (Microsoft Installer). Однако при создании бесшумной установки на несколько дисков может возникнуть проблема с кодом ошибки 1602, который возвращается после окончания установки первого диска.

Эта проблема связана с тем, что при бесшумной установке (с параметром /qn) пользовательский интерфейс не отображается, и установщик не может запросить у пользователя вставку следующего диска. В результате установщик возвращает код ошибки 1602, означающий "пользователь отменил установку".

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

Другой подход заключается в использовании функции MsiSetExternalUI, которая позволяет перенаправить пользовательский интерфейс установщика на внешнюю программу. Однако этот подход не гарантирует возврата кода ошибки 1302, который означает "вставьте диск [2]".

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

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

Пример кода для запуска установщика MSI в Delphi:

Result := FileExecute(handle, PChar(GetcurrentDir + '\' + setupFile),
    PChar(Format('/qn INSTALLDIR="%s" APPDIR="%s"  /l*v c:\temp\msi.log', [path, path])), '',
    SW_SHOWNORMAL, True);
ShowMessage(IntToStr(Result));

Примечание: При использовании этого кода важно убедиться, что путь к установщику и параметры командной строки указаны верно. Кроме того, необходимо учитывать, что установщик может возвращать другие коды ошибок в зависимости от конкретных обстоятельств.

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

При разработке приложений на Delphi для их распределения часто возникает необходимость создания установщика в формате MSI, но при бесшумной установке на несколько дисков может возникнуть проблема с кодом ошибки 1602, связанная с отсутствием запроса у поль

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

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

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