PureBasic

où je sais plus programmer, ou il y a un problème !

comment on se sert de la commande End pour faire en sorte que l'exécutable généré retourne un code de retour réutilisable dans un autre programme quand on fait RunProgram() ?

par exemple un programme bidon qu'on compile et appelle rc.exe :

Code : Tout sélectionner

; code de retour

ExitCode.l = MessageRequester("test","test",#PB_MessageRequester_YesNoCancel|#MB_SETFOREGROUND)

; fin

End ExitCode

et un programme tout aussi bidon qui appelle rc.exe :

Code : Tout sélectionner

rc = RunProgram("rc.exe","","",1|2)
Debug rc ; manifestement ce n'est pas mon code de retour d'origine

je n'ai pas trouvé comment on fait...

cool j'ai trouvé :

Code : Tout sélectionner

; exécutable

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

; code de retour

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

Encore un truc à savoir en plus, merci Flype!

Merci Flype, je m'étais cassé les dents sur le même problème.

Enfin résolu

Ben non, Flype!

Désolé, mais ça ne résoud pas le problème initial qui est "comment on se sert de la commande End pour faire en sorte que l'exécutable généré retourne un code de retour...".

Le code que tu donnes fonctionne, il n'y a pas de doute, mais "End" n'y apparaît pas.

Ben oui

Code : Tout sélectionner

End ExitCode

??

Droopy a écrit :
Code : Tout sélectionner
End ExitCode
??

Oui..???
Et alors...???

Code : Tout sélectionner

; code de retour 

ExitCode.l = MessageRequester("test","test",#PB_MessageRequester_YesNoCancel|#MB_SETFOREGROUND) 

; fin 

End ExitCode

la dernière commande est bien End non ?

Oui, seulement, cette partie là est dans la question, et pas dans la réponse

Flype a écrit :où je sais plus programmer, ou il y a un problème !

comment on se sert de la commande End pour faire en sorte que l'exécutable généré retourne un code de retour réutilisable dans un autre programme quand on fait RunProgram() ?

par exemple un programme bidon qu'on compile et appelle rc.exe :Code:
; code de retour

ExitCode.l = MessageRequester("test","test",#PB_MessageRequester_YesNoCancel|#MB_SETFOREGROUND)

; fin

End ExitCode

et un programme tout aussi bidon qui appelle rc.exe :Code:
rc = RunProgram("rc.exe","","",1|2)
Debug rc ; manifestement ce n'est pas mon code de retour d'origine

je n'ai pas trouvé comment on fait...

Bien vu, j'avais pas vu

Je comprends rien a ce que vous dites.
Au départ je pensais que End [ExitCode] ne fonctionnait pas correctement, puisque d'une manière ou d'une autre je n'arrivais pas à récupérer cet ExitCode depuis un autre source.
Mais en fait tout va bien, End [ExitCode] fait son travail correctement, c'est RunProgram qui devrait intégrer un nouvel argument (un pointeur sur une variable pour stocker le code de retour).

peut etre à mettre dans la wishlist.

Ben oui, parce qu'en fait, le ExitCode, tu peux le récupèrer avec un GetExitCodeProcess_(), mais c'est pas vraiment le but.

Il faudrait pouvoir le récupérer, soit avec le RunProgram(), soit avec une autre fonction, mais qui soit incluse dans Pure.

Je me suis amusé à faire ça, tout à l'heure:

Code : Tout sélectionner

;- 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

Code : Tout sélectionner

;- Programme pour tester "Test.exe"

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

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

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

oui on est bien d'accord Chris - par contre RunProgram("Test.exe","","",1) devrait être RunProgram("Test.exe","","",0) sinon ton test ne sert à rien ( 1 = on attends la fin du program, 0 = exécution en tache de fond )

Ah oui, tiens....
J'avais pas fait gaffe!

Bref, l'important, c'est quand même qu'il manque quelque chose pour la récupérer, cette valeur retournée par End

Tout à fait d'accord

PureBasic

End MonCodeDeRetour ; comment çà marche ?

End MonCodeDeRetour ; comment çà marche ?