Code : Tout sélectionner
Case #PB_Event_Timer
NbPoints + 1
If NbPoints = 4
NbPoints = 1
EndIf
SetGadgetText(#TextWait, "Veuillez patienter" + Left("...", NbPoints))
If ProgramRunning(installer) = 0
MessageRequester("Installation", Programmes(soft)\programme$+" à bien été installé.")
EndIfDans une procédure il y a :
Code : Tout sélectionner
Global installer = RunProgram("install.bat", "/?", "", #PB_Program_Open|#PB_Program_Hide)Merci !