Discussion :

[OhMonBato]

Bonjour,

je lance un programme en utilisant l'API "CreateProcess", ca fonctionne.
Je voudrais maintenant pouvoir fermer cette application proprement en utilisant l'API ExitProcess mais je coince la dessus.
Si j'ai bien compris l'utilisation de cette API je dois fournir le handle de l'appli a fermer ainsi qu'un "code de sortie" ?
Comment recuperer ces valeurs ?

[ThierryAIM]

Salut
Ceci pour t'aider, peut-être
http://allapi.mentalis.org/apilist/ExitProcess.shtml

[Delbeke]

Dans mes souvenirs,
Dans les parametres de createprocess, il y a un parametre PROCESS_INFORMATION qui est reseigné par la fonction. (disons pi as PROCESS_INFORMATION)
Pour terminer le process, il faut faire

Code :

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

1
2
          CloseHandle pi.hThread
          CloseHandle pi.hProcess

Close handle est une fonction de l'API

[OhMonBato]

Merci de vous etre interesse a ma question.

Thierry, j'avais bien ces infos (j'aurais du le preciser), mais je ne m'en sortais pas. Delbeke m'a mis sur la piste, sa solution ne fonctionne pas (en tout cas telle que j'ai essaye de l'utiliser) mais c'est bien le parametre PROCESS_INFORMATION qu'il fallait utiliser.

Au cas ou d'autres tenteraient de faire la meme chose, je donne ici le code qui me permet de lancer puis de fermer un process.

Dans un module bas :

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
Option Explicit
 
Public Const INFINITE = &HFFFF
Public Const STARTF_USESHOWWINDOW = &H1
Public Enum enSW
    SW_HIDE = 0
    SW_NORMAL = 1
    SW_MAXIMIZE = 3
    SW_MINIMIZE = 6
End Enum
Public Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessId As Long
    dwThreadId As Long
End Type
Public 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 Byte
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
End Type
Public Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type
Public Enum enPriority_Class
    NORMAL_PRIORITY_CLASS = &H20
    IDLE_PRIORITY_CLASS = &H40
    HIGH_PRIORITY_CLASS = &H80
End Enum
 
Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Sur une feuille avec 2 boutons de commande :

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
 
Option Explicit
 
Dim pinfo As PROCESS_INFORMATION
Dim pclass As Long
Dim sinfo As STARTUPINFO
'Not used, but needed
Dim sec1 As SECURITY_ATTRIBUTES
Dim sec2 As SECURITY_ATTRIBUTES
 
 
Private Sub CmdStartProcess_Click()
'Set the structure size
sec1.nLength = Len(sec1)
sec2.nLength = Len(sec2)
sinfo.cb = Len(sinfo)
'Set the flags
sinfo.dwFlags = STARTF_USESHOWWINDOW
CreateProcess vbNullString, "C:\Repertoire\MonProgramme.exe", sec1, sec2, False, pclass, 0&, "C:\Repertoire", sinfo, pinfo
End Sub
 
 
Private Sub CmdStopProcess_Click()
Dim ExitCode As Long
ExitCode = GetExitCodeProcess(pinfo.hProcess, 0)
TerminateProcess pinfo.hProcess, ExitCode
End Sub

Merci encore !

[OhMonBato]

Je viens apporter une precision au code precedent. Jusqu'ici mes tests se faisaient sur un programme "simple" avec une seule fenetre.
Le programme que je souhaite reellement ouvrir lance une seconde fenetre a son lancement et la, petit soucis, la fenetre principale disparaissait purement et simplement (tout en restant dans la liste des process actifs sous Windows)

J'ai du supprimer la ligne suivante pour que tout rentre dans l'ordre.

Code :

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

1
2
'Set the flags
sinfo.dwFlags = STARTF_USESHOWWINDOW

Ca fonctionne donc mais pour etre honnete je ne vois pas trop pourquoi.
Par simple curiosite, si vous avez une explication, je suis preneur.