installer - studio - inno車頂架




Inno Setup:如何自動卸載以前安裝的版本? (8)

我正在使用Inno Setup來創建一個安裝程序。

我希望安裝程序自動卸載以前安裝的版本,而不是覆蓋它。 我怎樣才能做到這一點?


Craig McQueen提供的答案完全可行。 雖然,我會添加這些評論:

  • {#emit SetupSetting("AppId")}代碼不適合我,所以我只是添加我的App ID。
  • 我不想執行我的卸載程序,因為我有一個INI配置文件存儲在AppData /文件夾中,它被卸載程序刪除,我不希望它在安裝新版本時被刪除。 所以,我修改了一下Craig McQueen提供的代碼,以便在檢索其路徑後刪除安裝該程序的目錄。

所以,關於Craig McQueen的代碼,變化是:

  • 檢索InstallLocation鍵而不是UninstallString鍵。
  • 使用DelTree函數而不是Exec(sUnInstallString, ...)

不要使用[Run]部分,而要使用[UninstallRun]。 事實上,[Run]下的程序在安裝之後執行,導致安裝後立即卸載程序: - | 而是在安裝之前評估[UninstallRun]部分。


如果你“只是想刪除舊圖標”(因為你已經更改/更新),你可以使用這個:

; attempt to remove previous versions' icons
[InstallDelete]
Type: filesandordirs; Name: {group}\*;

這是在安裝開始時運行的,所以基本上刪除了舊的圖標,並且在完成之後,新的圖標仍然會安裝在那裡。

我只是每次安裝時都會這樣做,以防萬一有任何變化“圖標明智(無論如何它都會被重新安裝)。


對於任何使用上面建議的GetUninstallString()強制在CurStepChanged()內部卸載並且存在磁盤緩存問題的人,請參閱下面的相關解決方案,在卸載unistaller之後實際等待一段時間,以便刪除卸載程序exe!

inno-setup磁盤緩存問題?


我使用了以下內容。 我不確定這是實現它的最簡單的方法,但它的工作原理。

這使用依賴於Inno Setup Preprocessor的{#emit SetupSetting("AppId")} 。 如果您不使用它,請直接剪切並粘貼您的應用程序ID。

/////////////////////////////////////////////////////////////////////
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安裝腳本示例” ,它會更進一步,讀取任何先前安裝的版本的版本號,並將該版本號與當前安裝包的版本號進行比較。


我編輯了@Crain Mc-Queen代碼,我認為這段代碼更好,因為不需要在不同的項目中進行修改:

[Code]
function GetNumber(var temp: String): Integer;
var
  part: String;
  pos1: Integer;
begin
  if Length(temp) = 0 then
  begin
    Result := -1;
    Exit;
  end;
    pos1 := Pos('.', temp);
    if (pos1 = 0) then
    begin
      Result := StrToInt(temp);
    temp := '';
    end
    else
    begin
    part := Copy(temp, 1, pos1 - 1);
      temp := Copy(temp, pos1 + 1, Length(temp));
      Result := StrToInt(part);
    end;
end;

function CompareInner(var temp1, temp2: String): Integer;
var
  num1, num2: Integer;
begin
    num1 := GetNumber(temp1);
  num2 := GetNumber(temp2);
  if (num1 = -1) or (num2 = -1) then
  begin
    Result := 0;
    Exit;
  end;
      if (num1 > num2) then
      begin
        Result := 1;
      end
      else if (num1 < num2) then
      begin
        Result := -1;
      end
      else
      begin
        Result := CompareInner(temp1, temp2);
      end;
end;

function CompareVersion(str1, str2: String): Integer;
var
  temp1, temp2: String;
begin
    temp1 := str1;
    temp2 := str2;
    Result := CompareInner(temp1, temp2);
end;

function InitializeSetup(): Boolean;
var
  oldVersion: String;
  uninstaller: String;
  ErrorCode: Integer;
  vCurID      :String;
  vCurAppName :String;
begin
  vCurID:= '{#SetupSetting("AppId")}';
  vCurAppName:= '{#SetupSetting("AppName")}';
  //remove first "{" of ID
  vCurID:= Copy(vCurID, 2, Length(vCurID) - 1);
  //
  if RegKeyExists(HKEY_LOCAL_MACHINE,
    'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + vCurID + '_is1') then
  begin
    RegQueryStringValue(HKEY_LOCAL_MACHINE,
      'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + vCurID + '_is1',
      'DisplayVersion', oldVersion);
    if (CompareVersion(oldVersion, '{#SetupSetting("AppVersion")}') < 0) then      
    begin
      if MsgBox('Version ' + oldVersion + ' of ' + vCurAppName + ' is already installed. Continue to use this old version?',
        mbConfirmation, MB_YESNO) = IDYES then
      begin
        Result := False;
      end
      else
      begin
          RegQueryStringValue(HKEY_LOCAL_MACHINE,
            'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + vCurID + '_is1',
            'UninstallString', uninstaller);
          ShellExec('runas', uninstaller, '/SILENT', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
          Result := True;
      end;
    end
    else
    begin
      MsgBox('Version ' + oldVersion + ' of ' + vCurAppName + ' is already installed. This installer will exit.',
        mbInformation, MB_OK);
      Result := False;
    end;
  end
  else
  begin
    Result := True;
  end;
end;


您應該能夠從註冊表中讀取卸載字符串,並給出AppId(即您在[Setup]用於AppID的值)。 可以在Software\Microsoft\Windows\CurrentVersion\Uninstall\{AppId}\ (可以是HKLMHKCU ,所以最好檢查兩者) {AppId}應該用您使用的實際值替換。 查找UninstallStringQuietUninstallString值,並使用Exec函數從InitializeSetup()事件函數中運行它。

更新:使用{uninstallexe}[Run]條目刪除了非工作替代解決方案 - 感謝所有指出此問題的評論者!