Kill processus W2K

Bonjour,

Je lance une application.exe via un programme VB6. J'aimerais lorsque je ferme ce programme, fermer l'application que j'ai lancé via le shell. La commande ci-dessous fonctionne sous Win XP mais je cherche l'équivalent pour win 2K. Merci

Shell("taskkill /IM monapplication.exe")

juste pour avoir la réponse ...

Salut gradenko80, salut etniqs,

essayez cela :

dans un module standard :
Private Declare Function TerminateProcess Lib "KERNEL32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long

ailleurs :
Private Function Kill_ID()
On Error Resume Next
    Dim ProcessHandle As Long
    Const PROCESS_TERMINATE = 1
    ProcessHandle = OpenProcess(PROCESS_TERMINATE, False, dId)
    TerminateProcess ProcessHandle, 4
End Function

Et le dId, vous devez pouvoir le récupérer avec l'appel de shell().

sinon, il y aussi le kill.exe :
http://www.google.fr/search?hl=fr&q=kill.exe&btnG=Recherche+Google&meta==

Dans tous les cas, il faut espérer que vous disposiez des droits nécessaires...
rvblogⁿ