PureBasic

DoEvents()

gnozal a écrit :Personnellement, je n'utilise pas RunProgram().
Je fais comme çà :

Code : Tout sélectionner

          StartupInfo.STARTUPINFO
          StartupInfo\cb = SizeOf(STARTUPINFO)
          StartupInfo\dwFlags = #STARTF_USESHOWWINDOW
          StartupInfo\wShowWindow = #SW_HIDE	
          ProcessInfo.PROCESS_INFORMATION
          If CreateProcess_(0, @CommandLine.s, 0, 0, 0, 0, 0, 0, @StartupInfo, @ProcessInfo) = 0
           ; Impossible de lancer CommandLine
          Else
            ProcessExitCode.l
            Repeat
              DoEvents() ; ne pas figer l'application pendant l'appel au programme externe
              GetExitCodeProcess_(ProcessInfo\hProcess, @ProcessExitCode)
            Until ProcessExitCode <> #STILL_ACTIVE
            If ProcessExitCode > 0
              Select ProcessExitCode
               ; gestion de l'exit code
              EndSelect
            EndIf
          EndIf

Dobro a écrit :

DoEvents()

heu c'est du Visual Basic ça !

ou bien une lib laquelle ?

Procedure DoEvents() 
    msg.MSG 
    If PeekMessage_(msg,0,0,0,1) 
      TranslateMessage_(msg) 
      DispatchMessage_(msg) 
    Else 
      Delay(1) 
    EndIf 
EndProcedure

Procedure DoEvents() 
  While WindowEvent(): Wend 
EndProcedure

Chris a écrit :Je ne vois pas vraiment ce que ça apporte d'aller réinventer des commandes qui existent déjà.

Gnozal a écrit :L'intérêt c'est que l'application n'est pas totalement figée (raffraîchissement des fenêtres etc...) en attendant la fin du programme appelé, ce qui est le cas avec RunProgram() qui en plus ne renvoie pas d'exit code.

Chris a écrit :Je n'avais jamais remarqué que l'application était "figée", sauf avec 1 ou 2 comme dernier paramètre.