mirror of
https://github.com/subsurface/subsurface.git
synced 2025-02-19 22:16:15 +00:00
Revert "NSIS: add a couple of uninstaller checkboxes"
This reverts commit d69c9e08af.
While this is a nice improvement, it requires other patches to work
correctly which go beyond what I'm comfortable having in a "quick update
to 4.5".
This commit is contained in:
parent
e1768b4771
commit
f9d5fe56b3
1 changed files with 2 additions and 66 deletions
|
|
@ -62,58 +62,6 @@
|
||||||
|
|
||||||
Var StartMenuFolder
|
Var StartMenuFolder
|
||||||
|
|
||||||
#--------------------------------
|
|
||||||
# Custom pages
|
|
||||||
|
|
||||||
# Maintain some checkboxes in the uninstall dialog
|
|
||||||
Var UninstallDialog
|
|
||||||
Var Checkbox_Reg
|
|
||||||
Var Checkbox_Reg_State
|
|
||||||
Var Checkbox_UserDir
|
|
||||||
Var Checkbox_UserDir_State
|
|
||||||
Var UserDir
|
|
||||||
|
|
||||||
Function un.UninstallOptions
|
|
||||||
nsDialogs::Create 1018
|
|
||||||
Pop $UninstallDialog
|
|
||||||
${If} $UninstallDialog == error
|
|
||||||
Abort
|
|
||||||
${EndIf}
|
|
||||||
|
|
||||||
StrCpy $Checkbox_Reg_State 0
|
|
||||||
StrCpy $Checkbox_UserDir 0
|
|
||||||
|
|
||||||
# if this key exists Subsurface was run at least once
|
|
||||||
ReadRegStr $UserDir HKCU "Software\Subsurface\Subsurface\GeneralSettings" "default_directory"
|
|
||||||
${If} $UserDir != ""
|
|
||||||
# checkbox for removing registry entries
|
|
||||||
${NSD_CreateCheckbox} 0 0u 100% 20u "Registry entries (HKEY_CURRENT_USER\Software\Subsurface)"
|
|
||||||
Pop $Checkbox_Reg
|
|
||||||
GetFunctionAddress $0 un.OnCheckbox_Reg
|
|
||||||
nsDialogs::OnClick $Checkbox_Reg $0
|
|
||||||
|
|
||||||
${If} ${FileExists} "$UserDir\*.*"
|
|
||||||
# checkbox for removing the user directory
|
|
||||||
${NSD_CreateCheckbox} 0 20u 100% 20u "User directory ($UserDir)"
|
|
||||||
Pop $Checkbox_UserDir
|
|
||||||
GetFunctionAddress $0 un.OnCheckbox_UserDir
|
|
||||||
nsDialogs::OnClick $Checkbox_UserDir $0
|
|
||||||
${EndIf}
|
|
||||||
${EndIf}
|
|
||||||
|
|
||||||
nsDialogs::Show
|
|
||||||
FunctionEnd
|
|
||||||
|
|
||||||
Function un.OnCheckbox_Reg
|
|
||||||
${NSD_GetState} $Checkbox_Reg $Checkbox_Reg_State
|
|
||||||
FunctionEnd
|
|
||||||
Function un.OnCheckbox_UserDir
|
|
||||||
${NSD_GetState} $Checkbox_UserDir $Checkbox_UserDir_State
|
|
||||||
${If} $Checkbox_UserDir_State == 1
|
|
||||||
MessageBox MB_OK "WARNING!$\nMake sure you don't have important files in the user directory!"
|
|
||||||
${EndIf}
|
|
||||||
FunctionEnd
|
|
||||||
|
|
||||||
#--------------------------------
|
#--------------------------------
|
||||||
# Pages
|
# Pages
|
||||||
|
|
||||||
|
|
@ -125,7 +73,6 @@ FunctionEnd
|
||||||
|
|
||||||
# Uninstaller pages
|
# Uninstaller pages
|
||||||
!insertmacro MUI_UNPAGE_CONFIRM
|
!insertmacro MUI_UNPAGE_CONFIRM
|
||||||
UninstPage custom un.UninstallOptions
|
|
||||||
!insertmacro MUI_UNPAGE_INSTFILES
|
!insertmacro MUI_UNPAGE_INSTFILES
|
||||||
|
|
||||||
#--------------------------------
|
#--------------------------------
|
||||||
|
|
@ -216,19 +163,8 @@ Section "Uninstall"
|
||||||
RMDir "$SMPROGRAMS\$StartMenuFolder"
|
RMDir "$SMPROGRAMS\$StartMenuFolder"
|
||||||
Delete "$DESKTOP\Subsurface.lnk"
|
Delete "$DESKTOP\Subsurface.lnk"
|
||||||
|
|
||||||
# remove the registry entires
|
# Remove registry entries
|
||||||
${If} $Checkbox_Reg_State == 1
|
DeleteRegKey /ifempty HKCU "Software\Subsurface"
|
||||||
DeleteRegKey HKCU "Software\Subsurface"
|
|
||||||
${EndIf}
|
|
||||||
|
|
||||||
# remove the user directory
|
|
||||||
${If} $Checkbox_UserDir_State == 1
|
|
||||||
${AndIf} $UserDir != ""
|
|
||||||
${AndIf} ${FileExists} "$UserDir\*.*"
|
|
||||||
RMDir /r $UserDir
|
|
||||||
${EndIf}
|
|
||||||
|
|
||||||
# remove the uninstaller entry
|
|
||||||
DeleteRegKey HKCU "Software\Microsoft\Windows\CurrentVersion\Uninstall\Subsurface"
|
DeleteRegKey HKCU "Software\Microsoft\Windows\CurrentVersion\Uninstall\Subsurface"
|
||||||
|
|
||||||
SectionEnd
|
SectionEnd
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue