Inno Setup安装时卸载旧版本

记录一下Inno Setup打包exe卸载旧版本

[Code]

function GetUninstallString(): String;

var

sUnInstPath: String;

sUnInstallString: String;

begin

sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{填写自己的软件AppId}_is1');

sUnInstallString := '';

if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then

RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString);

Result := sUnInstallString;

end;

function IsUpgrade(): Boolean;

begin

Result := (GetUninstallString() <> '');

end;

function UnInstallOldVersion(): Integer;

var

sUnInstallString: String;

iResultCode: Integer;

begin

// Return Values:

// 1 - uninstall string is empty

// 2 - error executing the UnInstallString

// 3 - successfully executed the UnInstallString

// default return value

Result := 0;

// get the uninstall string of the old app

sUnInstallString := GetUninstallString();

if sUnInstallString <> '' then begin

sUnInstallString := RemoveQuotes(sUnInstallString);

if Exec(sUnInstallString, '/SILENT /NORESTART /SUPPRESSMSGBOXES','', SW_HIDE, ewWaitUntilTerminated, iResultCode) then

Result := 3

else

Result := 2;

end else

Result := 1;

end;

procedure CurStepChanged(CurStep: TSetupStep);

begin

if (CurStep=ssInstall) then

begin

if (IsUpgrade()) then

begin

UnInstallOldVersion();

end;

end;

end;

功能描述

• 比较版本号，如果版本号高于已安装的则卸载旧版本；

注意

• 只有appId相同才会对比，appId不同继续安装；