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."