From 252db3c3edaddbd487b0de9d77efa0ad30111356 Mon Sep 17 00:00:00 2001 From: Raivis Dejus Date: Mon, 24 Nov 2025 21:59:21 +0200 Subject: [PATCH] Adding option to delete saved models and files on uninstall (#1291) --- installer.iss | 25 +++++++++++++++---------- 1 file changed, 15 insertions(+), 10 deletions(-) diff --git a/installer.iss b/installer.iss index 69fa9b39..85b690d0 100644 --- a/installer.iss +++ b/installer.iss @@ -51,16 +51,6 @@ Filename: "{app}\{#AppExeName}"; Description: "{cm:LaunchProgram,{#StringChange( Root: HKCU; Subkey: "{#AppRegKey}" [Code] -procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); -begin - if CurUninstallStep = usPostUninstall then - begin - if RegKeyExists(HKEY_CURRENT_USER, '{#AppRegKey}') then - if MsgBox('Do you want to delete Buzz settings?', mbConfirmation, MB_YESNO) = IDYES - then - RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, '{#AppRegKey}'); - end; -end; procedure DeleteFileOrFolder(FilePath: string); begin if FileExists(FilePath) then @@ -73,6 +63,21 @@ begin end; end; +procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); +begin + if CurUninstallStep = usPostUninstall then + begin + if RegKeyExists(HKEY_CURRENT_USER, '{#AppRegKey}') then + if MsgBox('Do you want to delete Buzz settings and saved files?', mbConfirmation, MB_YESNO) = IDYES + then + begin + RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, '{#AppRegKey}'); + // Remove model and cache directories + DeleteFileOrFolder(ExpandConstant('{localappdata}\Buzz')); + end; + end; +end; + procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep = ssInstall then