Discussion :

[WDKyle]

Bonjour,

Je m'arrache les cheveux depuis hier à trouver une solution pour stopper une installation.

J'ai essayé d'utiliser les paramètres : Check, AfterInstall et BeforeInstall mais aucun ne conviens ou alors je n'arrive pas à les utiliser correctement...

Dans l'aide, ils sont utilisés dans la section [Files] mais je souhaite pouvoir les utilisé dans la section [Run] car je souhaite stopper l’exécution de l'installation si un des programmes listé dans [Run] renvoi une erreur.

J'ai un exe qui est donc lancé dans [Run] et celui-ci écrit dans un fichier txt une valeur de retour (n'ayant pas trouvé de fonction innosetup récupérant directement des valeurs de retour d'un exe...), j'arrive très bien à lire le contenu de ce fichier txt avec une petite fonction que j'ai mise dans [Code] mais que ce soit avec Check, AfterInstall ou BeforeInstall, même lors d'erreurs, l'installation continue...

Je vous met le code complet dès que je peux sinon avez-vous une solution à me proposer ?

Merci

[Andnotor]

A l'exécution de la section [RUN], l'installation s'est déjà terminée avec succès, c'est trop tard
Il faudrait exécuter ce programme depuis CurStepChanged(ssInstall) et le cas échéant lancer un Abort.

[WDKyle]

Meme avec AfterInstall ? Ou alors sur l'élément suivant dans [Run] ?

[Andnotor]

Oui

[WDKyle]

Arf... Et comment doit-on utiliser cette procédure stp ?

[Andnotor]

Quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure CurStepChanged(CurStep: TSetupStep);
var
  Err :integer;
 
begin
  if CurStep = ssInstall then
  begin
    ShellExec('open', ExpandConstant('{app}') +'\MonApp.exe', '', '', SW_HIDE, ewWaitUntilTerminated, Err);
    if not TaCondition then Abort;
  end;
end;

[WDKyle]

D'accord

Et dans [Run], je n'ai rien à mettre ?

Merci

[Andnotor]

Non

[WDKyle]

Ok, je vais adapter ton code merci

Mais petite question de précision, la procédure se lance automatiquement une seule fois ? Lors de la phase d'installation c'est ça ?

Merci!

[WDKyle]

Je viens d'adapter le code que voici :

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
 
procedure CurStepChanged(CurStep: TSetupStep);
var
  Err :integer;
  ContenuTxt :String;
 
begin
  if CurStep = ssInstall then
  begin
    ShellExec('open', ExpandConstant('{tmp}') + '\Partage.exe', '', '', SW_HIDE, ewWaitUntilTerminated, Err);
 
    LoadStringFromFile(ExpandConstant('{tmp}') + '\retour.txt', ContenuTxt);
 
    if ContenuTxt <> 'OK' then begin
    MsgBox(ContenuTxt, mbCriticalError, MB_OK);
    Abort;
    end
  end;
end;

Par contre, cela n'as pas l'air de lancé Partage.exe car je n'ai aucun fichier retour.txt de créé de plus dans le répertoire {tmp} j'avais les fichiers temporaires de l'installation dedans maintenant je n'ai plus rien, la procédure à l'air de se lancé avant la copie des fichiers...

Je dois bien ne plus utiliser la section [Run] pour lancé l'exe ?

Merci.

EDIT : J'ai utilisé finalement ssPostInstall pour que la copie de fichiers se fasse

[WDKyle]

J'arrive bien à lancer maintenant mon .exe mais comment faire pour "simuler" un clic sur Annuler au lieu de faire un Abort ? Histoire de supprimer les fichiers qui ont été installé si il y a eu des erreurs.

Merci.