KillApp

Question

Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, _
   lpdwprocessid As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, _
   ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, _
   ByVal nIndex As Long) As Long
Private Const WM_CLOSE =  &H10
Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000


 Private Function CloseWindow(ByVal hwnd As Long, ByVal hInstance As Long) As Long 


Dim idproc As Long


idproc  = 0


're&#231;oit dans idproc l'id du processus li&#233; &#224; cette fen&#234;tre
GetWindowThreadProcessId hwnd, idprocIf (idproc hInstance) And ((GetWindowLong(hwnd, GWL_STYLE) And WS_SYSMENU) WS_SYSMENU) Then
     PostMessage hwnd, WM_CLOSE, 0, 0
End If


'obligatoire pour qu'EnumWindows continue l'&#233;num&#233;ration
CloseWindow = True


End Function


Public Sub KillApp(hInstance As Long)


EnumWindows AddressOf CloseWindow, hInstance


End Sub
__________________________________________________________

Alors voila j'ai trouver ce code  pour fermer mon application avec la fonction shell. Je voudrais kill&#233; l'application "ntvdm.exe" mais je ne sais pas ou la mettre dans ces lignes de codes. Merci, en esperant mettre bien exprim&#233;.

cs_eldim · Answer

Bonjour,
Arrete de t'emmerder avec ces API si tu ne les comprends
Y a un utilitaire windows qui s'appelle "tskill" et qui fonctionne tr&#232;s bien