Discussion :

[Burnsoul]

Bonjour,

J'ai mon programme qui lance un exécutable et je voudrai faire en sorte qu'il attende la fin son processus pour finir mon programme.

J'ai bien essayer avec WaitForSingleObject, mais je bloque.

Auriez-vous une solution a me proposer qui m'aiderai à comprendre comment réaliser ceci ?

Merci d'avance.

Bonne journée.

[tobba]

tu peux utiliser un timer pour verifier que le processus et toujours actif :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim trouve As Boolean = False
        For Each pr As Process In System.Diagnostics.Process.GetProcesses
            If pr.ProcessName = "nom du processus" Then
                trouve = True
                Exit For
            End If
        Next
        If Not trouve Then
            Application.Exit()
        End If
 
 
    End Sub

[Burnsoul]

Re bonjour,

Merci pour l'aide, ca marche mais ca le problème est qu'il ne vérifie pas jusqu'à temps que le process soit finit.

Il le trouve et quitte ce qui est normal d'après ce que j'ai compris au code.
Si vous pouviez m'éclairer encore une fois.

Bonne journée

[tobba]

En faite ce timer cera declanché quand vous lancer le processus , alors ce timer s'assure que le processus et toujours en cours d'exécution (toujours dans la liste des processus actifs) si ce n'est pas le Cas il va s'occuper de fermer le programme principale . C sa ce que voulai savoir ?

[Burnsoul]

Ah oki, bon je m'en vais tester tout ca.
Merci pour la réponse.

[Geo2A]

Bonjour,

Ci-joint un code vb6 à adapter pour .net (j'ai pas encore eu le temps de le faire).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Type STARTUPINFO
      cb As Long
      lpReserved As String
      lpDesktop As String
      lpTitle As String
      dwX As Long
      dwY As Long
      dwXSize As Long
      dwYSize As Long
      dwXCountChars As Long
      dwYCountChars As Long
      dwFillAttribute As Long
      dwFlags As Long
      wShowWindow As Integer
      cbReserved2 As Integer
      lpReserved2 As Long
      hStdInput As Long
      hStdOutput As Long
      hStdError As Long
   End Type
 
   Private Type PROCESS_INFORMATION
      hProcess As Long
      hThread As Long
      dwProcessID As Long
      dwThreadID As Long
   End Type
 
Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const INFINITE = -1&
 
 
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _
      hHandle As Long, ByVal dwmilliseconds As Long) As Long
Private Declare Function CreateProcessA Lib "kernel32" (ByVal _
      lpApplicationName As String, ByVal lpCommandLine As String, ByVal _
      lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
      ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
      ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As String, _
      lpStartupInfo As STARTUPINFO, lpProcessInformation As _
      PROCESS_INFORMATION) As Long
 
Private Declare Function CloseHandle Lib "kernel32" _
      (ByVal hObject As Long) As Long
 
Private Declare Function GetExitCodeProcess Lib "kernel32" _
      (ByVal hProcess As Long, lpExitCode As Long) As Long
 
 
Private Function ExecCmd(cmdline$)
Dim Ret&
      Dim proc As PROCESS_INFORMATION
      Dim start As STARTUPINFO
 
      ' Initialize the STARTUPINFO structure:
      start.cb = Len(start)
 
      ' Start the shelled application:
      Ret& = CreateProcessA(vbNullString, cmdline$, 0&, 0&, 1&, _
         NORMAL_PRIORITY_CLASS, 0&, vbNullString, start, proc)
 
      ' Wait for the shelled application to finish:
         Ret& = WaitForSingleObject(proc.hProcess, INFINITE)
         Call GetExitCodeProcess(proc.hProcess, Ret&)
         Call CloseHandle(proc.hThread)
         Call CloseHandle(proc.hProcess)
         ExecCmd = Ret&
   End Function

En fait à regarder vite fait il y a juste à remplacer les "Long" par "Integer" et marshaller les string pour avoir le type attendu par l'API. Pour cela il faut regarder dans la MSDN avec comme clef de recherche "API32".