inno setup 卸载注册表_Inno Setup：如何自动卸载以前安装的版本？

凤凰求蛊

我使用了以下内容。我不确定这是最简单的方法，但它有效。这种用途{#emit SetupSetting("AppId")}依赖于Inno Setup Preprocessor。如果您不使用它，请直接剪切并粘贴您的App ID。[Code]/function GetUninstallString(): String;var  sUnInstPath: String;  sUnInstallString: String;begin  sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{#emit SetupSetting("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;备择方案另请参阅此博客文章“版本比较的Inno安装脚本示例”，它更进一步，并读取任何以前安装的版本的版本号，并将该版本号与当前安装包的版本号进行比较。