Оптимизация деинсталлятора Inno Setup: выполнение действий в зависимости от выбора пользователя

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

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

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

Вопрос, который возник у пользователя, заключается в том, как выполнить определенные действия в деинсталляторе только в том случае, если пользователь действительно запросил деинсталляцию, а не просто закрыл окно деинсталлятора. В частности, пользователь хочет удалить файл uninstall.dll и содержимое каталога {app} только в том случае, если пользователь нажал кнопку "Да" в диалоговом окне подтверждения деинсталляции.

Для решения этой проблемы можно использовать процедуру CurUninstallStepChanged, которая вызывается при смене текущей страницы деинсталлятора. В этой процедуре можно проверить значение переменной CurUninstallStep, которая указывает на текущую страницу деинсталлятора. Если значение CurUninstallStep равно usUninstall, то пользователь подтвердил деинсталляцию, и можно выполнить необходимые действия. Если значение CurUninstallStep равно usDone, то деинсталляция успешно завершена, и также можно выполнить некоторые действия.

Ниже приведен пример кода на Object Pascal, который решает эту проблему:

Const
  DeleteFiles   = True;  // Определяет, нужно ли удалять все файлы каталога {app}.
  DeleteSubdirs = False; // Определяет, нужно ли удалять все подкаталоги каталога {app}.

Var
  UninstallIsDemanded: Boolean; // Определяет, подтвердил ли пользователь деинсталляцию.
  UninstallSuccess   : Boolean; // Определяет, успешно ли завершилась деинсталляция.

// Вызывается при смене текущей страницы деинсталлятора.
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then begin
    UninstallIsDemanded:= True;
  end;

  if CurUninstallStep = usDone then begin
    UninstallSuccess:= True;
  end;
end;

// Удаляет файл VCL-стиля деинсталлятора.
procedure DeleteSkin();
begin
  DeleteFile(ExpandConstant('{app}\uninstall.dll'));
end;

// Удаляет содержимое каталога {app}.
procedure DeleteApplication(DeleteFiles: Boolean; DeleteSubdirs: Boolean);
begin
  DelTree(ExpandConstant('{app}\'), true, DeleteFiles, DeleteSubdirs);
end;

// Инициализирует стиль VCL-интерфейса деинсталлятора.
function InitializeUninstall: Boolean;
begin
  Result := True;
  LoadVCLStyle_UnInstall(ExpandConstant('{app}\uninstall.vsf'));
end;

// Деинициализирует стиль VCL-интерфейса деинсталлятора.
procedure DeinitializeUninstall();
begin
  UnLoadVCLStyles_UnInstall;
  UnloadDll(ExpandConstant('{app}\uninstall.dll'));

  if UninstallSuccess = True then begin
    DeleteSkin();
    DeleteApplication(DeleteFiles, DeleteSubdirs);
  end;
end;

В данном примере процедура CurUninstallStepChanged устанавливает переменную UninstallIsDemanded в True, когда пользователь подтверждает деинсталляцию, и переменную UninstallSuccess в True, когда деинсталляция успешно завершается. В процедуре DeinitializeUninstall эти переменные проверяются, и только если обе они равны True, выполняются процедуры DeleteSkin и DeleteApplication, которые удаляют файл uninstall.dll и содержимое каталога {app}.

Таким образом, с помощью процедуры CurUninstallStepChanged и переменных UninstallIsDemanded и UninstallSuccess можно выполнить определенные действия в деинсталляторе только в том случае, если пользователь действительно запросил деинсталляцию и она успешно завершилась.

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

В этом контексте рассматривается вопрос о том, как в скриптах деинсталлятора Inno Setup выполнить определенные действия только в том случае, если пользователь действительно запросил деинсталляцию, а не просто закрыл окно деинсталлятора.

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

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

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