Изменение поведения свойства 'Uninstallable' в Inno Setup во время выполнения

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

Изменение поведения свойства 'Uninstallable' в Inno Setup во время выполнения

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

Описание проблемы

Допустим, вы создали установщик, который устанавливает приложение для образовательных целей. Установщик содержит две задачи: «скрытый» и «видимый» режимы установки. При выборе «скрытого» режима файлы и папки устанавливаются в скрытые директории, а установщик делается неприводимым (uninstallable). При выборе «видимого» режима файлы и папки устанавливаются в обычные директории, и установщик по умолчанию делается приводимым (uninstallable). Ваша задача – сделать так, чтобы при выборе «скрытого» режима не создавался деинсталлятор.

Решение проблемы

Чтобы изменить поведение свойства 'Uninstallable' в зависимости от выбранной задачи, вы можете воспользоваться следующим кодом, который описан в документации к директиве 'Uninstallable':

[Setup]
...
Uninstallable=not IsTaskSelected('hidden')

[Tasks]
Name: hidden; Description: Hidden mode; GroupDescription: Installation Mode
Name: visible; Description: Visible mode; GroupDescription: Installation Mode

В данном примере свойство 'Uninstallable' устанавливается в противоположность значению, возвращаемому функцией IsTaskSelected('hidden'). Функция IsTaskSelected возвращает True, если задача 'hidden' выбрана, и False в противном случае. Таким образом, если задача 'hidden' выбрана, установщик не будет приводимым, а если нет – будет.

Если вам нужно более сложное выражение или доступ к элементам скриптового кода, вы можете написать функцию, например, так:

[Setup]
...
Uninstallable=IsUninstallable

[Tasks]
Name: hidden; Description: Hidden mode; GroupDescription: Installation Mode
Name: visible; Description: Visible mode; GroupDescription: Installation Mode

[Code]
function IsUninstallable: Boolean;
begin
  Result := WizardSilent or not IsTaskSelected('hidden');
end;

В этом примере свойство 'Uninstallable' устанавливается в значение, возвращаемое функцией IsUninstallable. Функция IsUninstallable возвращает True, если установка бесшумная ( WizardSilent) или задача 'hidden' не выбрана, и False в противном случае.

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

Если вы хотите реализовать подобное поведение в установщике, созданном с помощью Delphi, вы можете использовать следующий код:

procedure InstallerCreate(Installer: TSetup; Wizard: TWizard);
begin
  Installer.Uninstallable := not Wizard.TaskNames.Contains('hidden');
end;

В этом примере свойство Uninstallable установщика устанавливается в противоположность значению, возвращаемому функцией Contains, которая проверяет, содержит ли список задач установщика задачу 'hidden'.

Используя эти примеры, вы можете изменить поведение свойства 'Uninstallable' в зависимости от выбранных пользователем параметров во время выполнения установщика в Inno Setup.

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

Описание: В статье рассматривается, как изменить поведение свойства 'Uninstallable' в Inno Setup во время выполнения, чтобы создать деинсталлятор только при выборе видимого режима установки, а не при скрытом.

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

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

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