检查是否安装了任何（自定义）应用程序的早期版本并自动卸载（应用程序设置是使用 NSIS 开发的）

Question

在 Inno 设置中，我想检查是否安装了以前版本的应用程序，如果检测到则自动卸载它。检查应用程序是否存在的注册表项是这样的：HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Adobe Shockwave Player 静默卸载命令是这样的：C:\Windows\system32\Adobe\Shockwave 12\uninstaller.exe /S . 注意-应用程序的设置是使用 NSIS 开发的。

还有一件事，如果找到以前的版本，我希望不显示任何消息框。同一应用程序的先前版本为 v12.1.3.153 或更低版本。 任何参考的完整 Inno 脚本：http://pastebin.com/HmrNcFd4

所以请提供代码。非常感谢！！

Answer 1

首先为您的应用程序创建一个新的 GUID（它就像您的应用程序在注册表中的主键）

; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
#define MyAppGUID "D8C85F98-A805-4237-8D7C-C2F050C19B47"
#define MyAppId MyAppName + "_" + MyAppGUID

在 [代码] 部分和函数 InitializeSetup() 中添加此指令。

[Code]
function InitializeSetup(): Boolean;
var
  ResultCode: Integer;
  ResultStr:string;
begin
  // Check if the application is already install
  // MsgBox('MyAppId = ' + '{#MyAppId}', mbInformation, mb_Ok);
  begin
    If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppId}_is1', 'UninstallString', ResultStr) then begin
      If ResultStr<>'' then begin
        ResultStr:=RemoveQuotes(ResultStr);
          if MsgBox('This application is already install. ' #13#13 'Uninstall it ?', mbConfirmation, MB_YESNO) = idYes then
          if not Exec(ResultStr, '/silent', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
            MsgBox('Erreur !!! ' #13#13 '' + SysErrorMessage(ResultCode) + '.', mbError, MB_OK);
      end;
    end;
  end ;
  Result := True;
end;