111 lines
3.4 KiB
TeX
111 lines
3.4 KiB
TeX
; Copyright (c) uib gmbh (www.uib.de)
|
|
; This sourcecode is owned by uib gmbh
|
|
; and published under the Terms of the General Public License.
|
|
; credits: http://www.opsi.org/en/credits/
|
|
DefStringlist $outlist$
|
|
|
|
Set $UninstallProgram$ = $InstallDir$ + "\gpg4win-uninstall.exe"
|
|
|
|
Message "Uninstalling " + $ProductId$ + " ..."
|
|
|
|
if FileExists($UninstallProgram$)
|
|
comment "Uninstall program found, starting uninstall"
|
|
killtask "kleopatra.exe"
|
|
killtask "gpg-agent.exe"
|
|
killtask "dirmngr.exe"
|
|
killtask "dbus-daemon.exe"
|
|
killtask "qdbus.exe"
|
|
Files_uninstall_special
|
|
setLoglevel = 7
|
|
set $outlist$ = getProcessList
|
|
DosInAnIcon_kill_tasks winst /32bit
|
|
set $outlist$ = getProcessList
|
|
Files_uninstall_special
|
|
Winbatch_uninstall /WaitforProcessending "Au_.exe" /Timeoutseconds 30
|
|
sub_check_exitcode
|
|
if not ("" = takefirststringcontaining(getProcessList,"Au_.exe"))
|
|
killtask "qdbus.exe"
|
|
killtask "kleopatra.exe"
|
|
killtask "gpg-agent.exe"
|
|
killtask "dirmngr.exe"
|
|
killtask "dbus-daemon.exe"
|
|
sleepseconds "10"
|
|
set $outlist$ = getProcessList
|
|
endif
|
|
if not ("" = takefirststringcontaining(getProcessList,"Au_.exe"))
|
|
killtask "qdbus.exe"
|
|
killtask "kleopatra.exe"
|
|
killtask "gpg-agent.exe"
|
|
killtask "dirmngr.exe"
|
|
killtask "dbus-daemon.exe"
|
|
sleepseconds "10"
|
|
set $outlist$ = getProcessList
|
|
endif
|
|
if not ("" = takefirststringcontaining(getProcessList,"Au_.exe"))
|
|
killtask "qdbus.exe"
|
|
killtask "kleopatra.exe"
|
|
killtask "gpg-agent.exe"
|
|
killtask "dirmngr.exe"
|
|
killtask "dbus-daemon.exe"
|
|
sleepseconds "10"
|
|
set $outlist$ = getProcessList
|
|
endif
|
|
if not ("" = takefirststringcontaining(getProcessList,"Au_.exe"))
|
|
set $outlist$ = getProcessList
|
|
LogError("uninstallation failed")
|
|
isFatalError
|
|
endif
|
|
setLoglevel = 6
|
|
endif
|
|
|
|
comment "Delete files"
|
|
Files_uninstall /32Bit
|
|
|
|
[Winbatch_uninstall]
|
|
; === Nullsoft Scriptable Install System ================================================================
|
|
"$UninstallProgram$" /S
|
|
|
|
[Files_uninstall]
|
|
del -sf "$InstallDir$\"
|
|
|
|
[Files_uninstall_special]
|
|
del -f "$InstallDir$\qdbus.exe"
|
|
|
|
[DosInAnIcon_kill_tasks]
|
|
taskkill /IM "kleopatra.exe" /F
|
|
taskkill /IM "gpg-agent.exe" /F
|
|
taskkill /IM "dirmngr.exe" /F
|
|
taskkill /IM "dbus-daemon.exe" /F
|
|
|
|
[Sub_check_exitcode]
|
|
comment "Test for installation success via exit code"
|
|
set $ExitCode$ = getLastExitCode
|
|
; informations to exit codes see
|
|
; http://msdn.microsoft.com/en-us/library/aa372835(VS.85).aspx
|
|
; http://msdn.microsoft.com/en-us/library/aa368542.aspx
|
|
if ($ExitCode$ = "0")
|
|
comment "Looks good: setup program gives exitcode zero"
|
|
else
|
|
comment "Setup program gives a exitcode unequal zero: " + $ExitCode$
|
|
if ($ExitCode$ = "1605")
|
|
comment "ERROR_UNKNOWN_PRODUCT 1605 This action is only valid for products that are currently installed."
|
|
comment "Uninstall of a not installed product failed - no problem"
|
|
else
|
|
if ($ExitCode$ = "1641")
|
|
comment "looks good: setup program gives exitcode 1641"
|
|
comment "ERROR_SUCCESS_REBOOT_INITIATED 1641 The installer has initiated a restart. This message is indicative of a success."
|
|
Exitwindows /Reboot
|
|
else
|
|
if ($ExitCode$ = "3010")
|
|
comment "looks good: setup program gives exitcode 3010"
|
|
comment "ERROR_SUCCESS_REBOOT_REQUIRED 3010 A restart is required to complete the install. This message is indicative of a success."
|
|
Exitwindows /Reboot
|
|
else
|
|
logError "Fatal: Setup program gives an unknown exitcode unequal zero: " + $ExitCode$
|
|
isFatalError
|
|
endif
|
|
endif
|
|
endif
|
|
endif
|
|
|