gpg4win.gpg4win/CLIENT_DATA/delsub32.ins
2013-02-24 14:57:24 +01:00

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