Discussion :

[kdevboy]

bonjour, je suis débutant avec Inno Setup. J'aimerais creer un repertoire "save" lors de la desinstallation d'une application packagée avec Inno et deplacé les fichiers installés de l'appli dans ce repertoire "save". Je pense qu'il faut ecrire qqch dans la section CODE...mais je ne sais pas quoi... et je ne sais pas ce qu'il faut faire ensuite... Peut-on m'aider svp ? merci

[ouiouioui]

simplement tu peux mettre le flags sur les fichiers:

Flags: uninsneveruninstall

sa les déplacera pas mais ils resteront et si tu réinstall tu peux mettre un flags pour pas les écraser

mais prévient l'utilisateur que tu n'efface pas tout exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usDone then
  begin
    MsgBox('Certains fichiers n''ont pas été supprimés.', mbInformation, MB_OK)
  end;
end;

[kdevboy]

merci ouiouioui pour ta réponse. mais je voudrai vraiment déplacer les fichiers dans un autre repertoire lors de la desinstallation.

[ouiouioui]

alors voila un exemple pour copier dans un dossier apres l'installeur efface automatiquement les fichiers originaux sinon enleve les // avant deletefile:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  begin
    if not DirExists('save') then
      CreateDir('save');
    if FileExists('test.dat') then
    begin
      FileCopy('test.dat', 'save\test.dat', True); // true pour écraser si existe déjà dans dossier save
//      DeleteFile('test.dat');
    end;
  end;
end;

mais tu devrais prévenir l'utilisateur à la fin que tu n'a pas tout effacé.

[kdevboy]

Merci le pb est résolue. Ca marche nikel. J'avais trouvé la solution entre temps.. :p