[VB6] comment renvoyer un exit code en VB6 ?

Hugh à tous et à toutes,

Je cherche comment faire pour que mon application VB6 renvoie un code retour (0 si succès ou 1 si échec) à l'application qui l'a appelée.

Je suis en train de mettre au point un jeu d'installation avec InstallShield Express.

J'utilise une "Custom Action" qui me permet d'exécuter un EXE après l'une ou l'autre des étapes de l'installation (ie après la copie des fichiers sur le poste cible).

Cet EXE est une appli VB6 qui me permet de demander à l'utilisateur tout un tas de renseignements pour initialiser des tables dans une BDD spécifique.

Or, en cas d'échec de ce programme, InstallShield offre la fonctionnalité d'arrêter son script d'installation (et de revenir en arrière en supprimant tout ce qui a déjà été copié).

Or pour cela, il teste le code retour renvoyé par l'application EXE (1 échec, 0 succès, ou l'inverse !)... D'où ma question :lol:

Merci de votre aide

Vincent

Une petite recherche Google et voilà:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long) Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Sub Form_Load() 'KPD-Team 1999 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'end this process ExitProcess GetExitCodeProcess(GetCurrentProcess, 0) End Sub

---

Ce code suffit pour ce que tu veux faire:

Code:

---

1 2 3

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long) ... ExitProcess monCodeDeRetour

---

merci je vais essayer tout de suite ! :wink:

Merci pour le code de l'API ExitProcess(), ça renvoie bien ce que je veux.

Par contre InstallShield ne semble pas pouvoir le récupérer ! :cry: Je pense que c'est un bug d'InstallShield.

Je lancerai mon Assistant à la main et non de façon automatique dans mon jeu d'installation...

Pour info, voici le code que j'ai ajouté qui renvoie le code SUCCES ou ECHEC en fonction d'une variable globale booléenne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Form_Unload(Cancel As Integer) If Not gblnTraitementTerminé Then ' annulation de l'opération si utilisateur répond NON Cancel = MsgBox("Le traitement n'est pas terminé." & vbCrLf & vbCrLf & _ "Voulez-vous tout de même quitter cet assistant ?", _ vbYesNo + vbDefaultButton2 + vbExclamation) = vbNo End If   ' renvoie un code retour en fonction du type de sortie If Not Cancel Then If gblnTraitementTerminé Then ExitProcess 1 ' SUCCES => InstallShield continue Else ExitProcess 0 ' ECHEC => InstallShield s'arrête (en principe !!) End If End If End Sub

---

Pour valider que c'était OK j'ai créé un lanceur de commande synchrone en utilisant les API CreateProcess(), WaitForSingleObject() et GetExitCodeProcess()

en appelant mon Assistant à partir de ce lanceur, je récupère bien le code SUCCES ou ECHEC renvoyé en fin de traitement.

Et avec ExitProcess -1, Install Shield continue quand même :?:

D'après l'exemple fourni dans InstallShield, et notamment une DLL en C qui permet de lancer une "Custom Action", le comportement d'InstallShield est le suivant :

Exit Code = 0 => L'installation est interrompue
Exit Code <> 0 => L'installation continue

J'ai testé la DLL et c'est bien ce comportement qui est obtenu.

Lorsque je reproduit ces Exit Code dans l'EXE en VB, InstallShield n'interprète pas correctement.

Je suis passé à autre chose, mais si je trouve un peu de temps, j'essaierai ton idée...

8)