WaitProgramInitialisation

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Avatar de l’utilisateur
Droopy
Messages : 1151
Inscription : lun. 19/juil./2004 22:31

WaitProgramInitialisation

Message par Droopy »

Pratique pour sendkey et être sur que l'appli est bien initialisée.

Code : Tout sélectionner

;/ Author : Bingo
; The WaitProgramInitialisation function waits Until The specified process is waiting For user input 
; with no input pending, Or Until The time-out interval has elapsed.
; If this process is a console application or does not have a message queue, 
; WaitProgramInitialisation returns immediately. 

Procedure WaitProgramInitialisation(Handle)  
  While  WaitForInputIdle_(Handle, 1) > 0 
    Debug "Initialisation ..."
    Delay(1) 
  Wend 
EndProcedure

;/ Test
ret = RunProgram("Calc.exe") 
If ret
  WaitProgramInitialisation(ret)
EndIf
Debug "Launched & Ready."