1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Dim lngIdProc As Long
Dim lngHProc As Long
AttentFin = False
lngIdProc = Shell(strCmd, vbHide)
lngHProc = OpenProcess(SYNCHRONIZE, False, lngIdProc)
If lngHProc <> 0 Then
DoEvents
Select Case WaitForSingleObject(lngHProc, PrendreChamp("tblParametres", "Delay"))
Case WAIT_OBJECT_0 'commande finie
Case WAIT_TIMEOUT
AttentFin = True
AfficheMsg "AttentFin: Time out!"
Case Else
AfficheMsg "AttentFin: Erreur innconue!"
AttentFin = True
End Select
CloseHandle lngHProc
End If |
Partager