UninstallMSI Function

Author: Faroguy (talk, contrib)

Description

I needed to have a robust function that would uninstall an arbitrary MSI installation. The other solution provided did not work because I did not know the GUID of the application, only its name.

Includes Required

• Registry
• LogicLib
• x64
• StrFunc (Be sure to initialize StrRep earlier in your installer)

Function

Function UninstallMSI
Exch $R0
Push $0
Push $1
Push $2
Push $3
Push $4
Push $5
Push $6
 
${If} ${RunningX64}
  Setregview 64
  StrCpy $0 "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
${Else}
  Setregview 32
  StrCpy $0 "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
${EndIf}
${registry::Open} "$0" "/NI='$R0' /K=0 /T=REG_SZ" $1
StrCpy $6 0
${While} $6 < 1
  ${registry::Find} $1 $2 $3 $4 $5
  ${If} $3 == "DisplayName"
  ${AndIf} $4 == "$R0"
    StrCpy $6 1
  ${EndIf}
  ${If} $5 == ""
    StrCpy $6 1
  ${EndIf}
${EndWhile}
${registry::Read} "HKEY_LOCAL_MACHINE\$2" "UninstallString" $4 $5
Push $4
Push '/I'
Push '/quiet /x'
Call StrRep
Pop $4
 
${If} $2 == ""
${OrIf} $4 == ""
  Goto msifail
${EndIf}
ExecWait '$4'
msifail:
${registry::Close} $1
 
Pop $6
Pop $5
Pop $4
Pop $3
Pop $2
Pop $1
Pop $0
Pop $R0
 
EndFunction

To call the function all you need to do is this:

Push "MyOldMSIName"
Call UninstallMSI