[Inno Setup] Sauvegarder un fichier avant la désinstallation

**Xpmich** · 22/01/2009, 08h42

Bonjour,
Après avoir regarder dans les exemples IS, les questions du forum dont beaucoup sont redondante ; je n’ais pas trouvé réponses à mes questions.

Je voudrais savoir s’il est possible de proposer à l’utilisateur de sauvegarder un fichier avant de démarrer la désinstallation du logiciel.

Dans la section [Code], j’ai déjà réussi à isoler le moment, reste à isolé le comment.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
//-----------------------------------
//Création de ma page perso d'essai
//Via CodeClasses.iss des exemples
Procedure PagePerso;
var
  Page: TWizardPage;
  Button, FormButton: TNewButton;
  FolderTreeView: TFolderTreeView;
begin
  Page := CreateCustomPage(wpWelcome, 'Custom wizard page controls', 'TButton and others');
  Button := TNewButton.Create(Page);
  Button.Width := ScaleX(75);
  Button.Height := ScaleY(23);
  Button.Caption := 'TNewButton';
  Button.Parent := Page.Surface;
 
 
  FormButton := TNewButton.Create(Page);
  FormButton.Top := ScaleY(8);
  FormButton.Width := ScaleX(75);
  FormButton.Height := ScaleY(23);
  FormButton.Caption := 'TSetupForm';
  FormButton.Parent := Page.Surface;
end;
//-----------------------------------
 
//-----------------------------------
//procedure de sauvegarde
procedure SaveData;
var
  DBPath: String;
begin
		DBPath := 'No Value';
 
  if RegKeyExists(HKLM, 'SOFTWARE\MY PROG\BDD') then
  begin
	  if RegQueryStringValue(HKLM, 'SOFTWARE\MY PROG\BDD',
		'Path', DBPath) then
		begin
		  if MsgBox('Do you want to save your database ?', mbConfirmation, MB_YESNO) = IDYES then
		  begin
			// user clicked Yes
			PagePerso;
		  end;
		end;
  end;
end;
//-----------------------------------
 
//-----------------------------------
//procedure relevant l'évolution des etapes
//lors de la désinstallation
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  case CurUninstallStep of
    usUninstall:
      begin
			SaveData;
      end;
  end;
end;
//-----------------------------------

De plus, IS me sort une erreur :
Runtime Error (at 1:136):
Erreur interne : Cannot call "CREATECUSTOMPAGE" function during Uninstall.

En contre partie, est-il possible de lancer une petit exécutable delphi (qui lui aura des IHM clair et simple) dans la section [code], une sorte de ShellExecute...
Merci d'avance.
Xpmich

**sjrd** · 22/01/2009, 10h40

Alors effectivement il n'est pas possible de créer des pages à la désinstallation. Par contre, tu peux créer ta petite IHM en Delphi dans une DLL. Puis faire appel à une routine exportée de cette DLL dans ta fonction SaveData.

**kenny49** · 22/01/2009, 10h48

Concernant l'erreur interne : Cannot call "CREATECUSTOMPAGE" function during Uninstall, ça doit venir du fait qu'il faut créer les pages dans le InitializeWizard().

Le problème dans ce que tu demandes c'est que la désinstallation n'est pas très customizable (on sait comment skipper une page durant l'install, mais pas pendant la désinstall).

Une solution serait d'exécuter la désinstallation à partir de ton setup.exe: dans les grandes lignes tu détecterais que l'utilisateur veut effectuer une désinstallation, dans ce cas tu afficherais alors ta page puis tu exécuterais la désintallation.

**Xpmich** · 22/01/2009, 11h18

Bonjour à tous,
merci de vos réponses mais il s'avère que je viens de trouver réponse à ma première question : "Proposer à l'utilisateur de sauvegarder une fichier avant de désinstaller le logiciel".
ce code est à mettre à la place de :
// user clicked Yes
PagePerso;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
ComeBack:
	// user clicked Yes
	Filename := '';
	if GetSaveFileName('Save database', Filename, '','ACCESS Database (*.mdb)|*.mdb|', 'mdb') then
		begin
		// user clicked ok
		FileCopy(DBPath + DBName + '.mdb', Filename, true);
		end
	else
		begin
			if MsgBox('Your database is not saved !'+ #13#13 +
			'Do you want to continue without saving your database ?', mbConfirmation, MB_YESNO) = IDNO then
			goto ComeBack;
		end;

Je n'ai pas testé vos remarques.
J'aurais cependant une autre question :
Est-il possible de savoir ou se situe le répertoire ou est installé le logiciel lors de la désinstallation?
Je m'explique :
Mon logiciel crée d'autres fichiers une fois lancer dans son répertoire (où il est installé). Pour garantir une bonne désinstallation du logiciel, il faut supprimer tout le dossier où il est installé. IS ne supprime que les fichiers qu'il a installé. Je compte réaliser une un suppression du répertoire une fois la désinstallation terminée. Cf l'exemple d'IS :

Code :

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

1
2
  // Delete the directory C:\Test and everything inside it
  DelTree('C:\Test', True, True, True

);

PS : Il existe peut-être une autre méthode ?

Merci d'avance.

PS : Je valide la réponse concernant la première question.

Xpmich.

**ouiouioui** · 22/01/2009, 11h23

moi je gère sa avec une message box.

j'interroge l'utilisateur si j'efface ou pas certain fichier et si il veut les garder je lui montre dans quel dossier ils sont, code ci-dessous il date de 3 ans:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
// -------------------------------------------------------------
// -- on uninstall ask user if he want to remove his config
// -- and skin directory and if no show path where is the file
// -------------------------------------------------------------
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
 langue, cheminconfig, effacerconfig, ouestconfig: String;
begin
  if CurUninstallStep = usUninstall then
  begin
    langue := ActiveLanguage;
    if langue = 'French' then
    begin
      effacerconfig := 'Voulez-vous effacer vos réglages d''utilisation de DVD Rebuilder'#13'ainsi que le dossier contenant tout les skins?';
      ouestconfig := 'Votre configuration de DVD Rebuilder et le dossier skins sont la:';
    end
    else if langue = 'Portuguese' then
    begin
      effacerconfig := 'Deseja eliminar as suas definição do DVD Rebuilder'#13'assim como a pasta das ""Skins""?';
      ouestconfig := 'A sua configuração do DVD Rebuilder e a pasta das "Skins" estão aqui:';
    end
    else
    begin
      effacerconfig := 'Do you want to erase your settings of DVD Rebuilder'#13'and the dir containing all the skins?';
      ouestconfig := 'Your settings of DVD Rebuilder and dir skins are registered here:';
    end;
    RegQueryStringValue( HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\DVD Rebuilder_is1', 'InstallLocation', cheminconfig)
    if MsgBox('' + effacerconfig + '', mbConfirmation, MB_YESNO) = IDYES then
    begin
      DeleteFile('' + cheminconfig + '\rebuilder.ini');
      DelTree('' + cheminconfig + '\Skins',true,true,true);
    end
    else
    begin
      MsgBox('' + ouestconfig + ''#13''#13'' + cheminconfig + '', mbInformation, MB_OK)
    end;
  end;
end;

**Xpmich** · 22/01/2009, 11h24

Oups,
Oubliez ma derniere question, sjrd y répond clairement et simplement à ce post :
http://www.developpez.net/forums/d64...e/#post3799663

bonne journée à tous,

Xpmich

**ouiouioui** · 22/01/2009, 11h48

la section [UninstallDelete] ne proposera rien à l'utilisateur sa efface juste.

bonne journée.

**sjrd** · 22/01/2009, 14h08

Envoyé par ouiouioui

j'interroge l'utilisateur si j'efface ou pas certain fichier et si il veut les garder je lui montre dans quel dossier ils sont, code ci-dessous il date de 3 ans:

Toi, tu devrais apprendre à utiliser les CustomMessages et la fonction ExpandConstants

Ca te débarrassera de tes tests en fonction de la langue