Inno Setup : Comment désinstaller automatiquement la version précédemment installée ?

Question

J'utilise Inno Setup pour créer un programme d'installation.

Je veux que le programme d'installation désinstalle automatiquement la version installée précédemment, au lieu de l'écraser. Comment puis-je faire cela ?

Answer 1

Pour tous ceux qui utilisent le GetUninstallString() suggéré ci-dessus pour forcer une désinstallation dans CurStepChanged() et a des problèmes de cache sur le disque, voir ci-dessous pour une solution apparentée qui attend en fait un certain temps après la désinstallation pour que l'exe de désinstallation soit supprimé !

Problème de mise en cache du disque avec inno-setup ?

Answer 2

Vous pouvez exécuter un désinstalleur dans la section [code]. Vous devez trouver comment obtenir le chemin vers le désinstalleur existant. Pour simplifier, lorsque j'installe mes applications, j'ajoute une valeur de chaîne de registre qui pointe vers le dossier contenant le désinstalleur, et j'exécute simplement le désinstalleur dans le callback InitializeWizard.

Gardez à l'esprit que les noms des désinstallateurs d'Inno setup sont tous de la forme uninsnnn.exe, vous devez en tenir compte dans votre code.

Answer 3

J'ai modifié le code de @Crain Mc-Queen, je pense que ce code est meilleur parce qu'il n'a pas besoin d'être modifié dans différents projets :

[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;

Answer 4

Pour ceux qui sont intéressés, j'ai écrit une DLL pour Inno Setup 6 et plus qui fournit un mécanisme simple pour supporter la désinstallation automatique.

La DLL fournit un moyen de détecter si le paquet que vous installez est déjà installé (par l'intermédiaire de AppId ) et de décider, en fonction de la version installée, si vous voulez la désinstaller automatiquement (par exemple, vous pourriez vouloir la désinstaller automatiquement si l'utilisateur effectue une mise à niveau inférieure).

https://github.com/Bill-Stewart/UninsIS

Answer 5

Je dois manquer quelque chose. Le site nouveau sont copiés dans le répertoire cible avant que la suppression de l'ancienne installation ne se produise. Puis vient le désinstallateur les supprime et supprime le répertoire.