; Permet de récupérer les codes de retour renvoyé par un programme lors de sa fermeture


; exécutable

processId.l = RunProgram("rc.exe", "", "", 1|2)

; code de retour

If GetExitCodeProcess_(processId, @ExitCode.l)
  MessageRequester("code de retour", Str(ExitCode))
EndIf


; #############################
;
; Exemples : (2 codes)



;- Programme à compiler : "Test.exe"

OpenWindow(0, 100, 100, 100, 100, #PB_Window_SystemMenu, "Test.exe")

Select MessageRequester("Test.exe", "Voulez vous terminer ce programme ?", #MB_OKCANCEL|#MB_ICONQUESTION)
  Case #IDOK
    End 100
EndSelect

Repeat : Until WaitWindowEvent() = #PB_EventCloseWindow
End


;- Programme pour tester "Test2.exe"

processID = RunProgram("Test.exe", "", "", 1)

While code <> 100 : GetExitCodeProcess_(processID, @code.l) : Wend

MessageRequester("Fini", "Le programme ''Test.exe'' est terminé")
End