Re: lancer un fichier.jar avec java par un runprogram
Publié : lun. 09/sept./2013 15:23
nikel les garsencore un grand merci a tous pour votre aide le code marche nikel
Forums PureBasic - Français
https://www.purebasic.fr/french/
Code : Tout sélectionner
RunJava = RunProgram("javaw","-jar forge.jar","", #PB_Program_Open | #PB_Program_Read )
If RunJava
While ProgramRunning(RunJava)
If AvailableProgramOutput(RunJava)
Sortie$ + ReadProgramString(RunJava) + Chr(13)
EndIf
Wend
Sortie$ + Chr(13) + Chr(13)
Sortie$ + "Code de retour : " + Str(ProgramExitCode(RunJava))
CloseProgram(RunJava) ; Ferme la connection vers le programme
EndIf
Debug Sortie$
; EPB
Code : Tout sélectionner
RunJava = RunProgram("javaw.exe","-jar forge.jar","", #PB_Program_Open | #PB_Program_Read )
If RunJava
While ProgramRunning(RunJava)
If AvailableProgramOutput(RunJava)
Sortie$ + ReadProgramString(RunJava) + Chr(13)
EndIf
Wend
Sortie$ + Chr(13) + Chr(13)
Sortie$ + "Code de retour : " + Str(ProgramExitCode(RunJava))
CloseProgram(RunJava) ; Ferme la connection vers le programme
EndIf
Debug Sortie$
; EPB