檢查是否安裝了以前版本的任何（自定義）應用程序並自動卸載（應用程序設置是使用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;