reactos/ahk_tests
1
0
Fork 0
mirror of https://github.com/reactos/ahk_tests.git synced 2024-11-30 06:50:46 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[AHK_IrfanView_4.23]

Browse Source 
Provide more information on how we remove older versions.
Tested and works fine in win2k3 sp2.

svn path=/trunk/ahk_tests/; revision=1704
This commit is contained in:
Edijs Kolesnikovičs 2012-09-19 15:25:33 +00:00
parent 066e113807
commit 35ce5e87b2
1 changed files with 31 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
IrfanView/4.23/install_test.ahk
View File

@ -40,50 +40,72 @@ else
; That probably means we have not installed this app before.
; Check in default directory to be extra sure
bHardcoded := true ; To know if we got path from registry or not
IfNotExist, %A_ProgramFiles%\IrfanView
bContinue := true ; No previous versions detected in hardcoded path
szDefaultDir = %A_ProgramFiles%\IrfanView
IfNotExist, %szDefaultDir%
{
TestsInfo("No previous versions detected in hardcoded path: '" szDefaultDir "'.")
bContinue := true
}
else
{
IfExist, %A_ProgramFiles%\IrfanView\iv_uninstall.exe
IfExist, %szDefaultDir%\iv_uninstall.exe
{
RunWait, %A_ProgramFiles%\IrfanView\iv_uninstall.exe /silent ; Silently uninstall it
TestsInfo("Found uninstaller '" szDefaultDir "\iv_uninstall.exe' (hardcoded path), so, lets run it.")
RunWait, %szDefaultDir%\iv_uninstall.exe /silent ; Silently uninstall it
Sleep, 7000
}
IfNotExist, %A_ProgramFiles%\IrfanView ; Uninstaller might delete the dir
bContinue := true
IfNotExist, %szDefaultDir% ; Uninstaller might delete the dir
{
FileRemoveDir, %A_ProgramFiles%\IrfanView, 1
TestsInfo("Uninstaller deleted hardcoded path: '" szDefaultDir "'.")
bContinue := true
}
else
{
FileRemoveDir, %szDefaultDir%, 1
if ErrorLevel
TestsFailed("Unable to delete hardcoded path '" A_ProgramFiles "\IrfanView' ('" MainAppFile "' process is reported as terminated).'")
TestsFailed("Unable to delete hardcoded path '" szDefaultDir "' ('" MainAppFile "' process is reported as terminated).'")
else
{
TestsInfo("Succeeded deleting hardcoded path, because uninstaller did not: '" szDefaultDir "'.")
bContinue := true
}
}
}
}
else
{
StringReplace, UninstallerPath, UninstallerPath, `",, All ; Remove quotes in case some version quotes the path
UninstallerPath := ExeFilePathNoParam(UninstallerPath)
SplitPath, UninstallerPath,, InstalledDir
IfNotExist, %InstalledDir%
{
TestsInfo("Got '" InstalledDir "' from registry and such path does not exist.")
bContinue := true
}
else
{
IfExist, %UninstallerPath%
{
TestsInfo("Found uninstaller (registry data), so, lets run it: '" UninstallerPath "'.")
RunWait, %UninstallerPath% /silent ; Silently uninstall it
Sleep, 7000
}
IfNotExist, %InstalledDir%
{
TestsInfo("Uninstaller deleted path (registry data): '" InstalledDir "'.")
bContinue := true
}
else
{
FileRemoveDir, %InstalledDir%, 1 ; Delete just in case
if ErrorLevel
TestsFailed("Unable to delete existing '" InstalledDir "' ('" MainAppFile "' process is reported as terminated).")
else
{
TestsInfo("Succeeded deleting path (registry data), because uninstaller did not: '" InstalledDir "'.")
bContinue := true
}
}
}
}