WDForge.org - Forums

Re: Killer un processus

Sujet: Re: Killer un processus
par Anonyme sur 1/7/2005 23:08:13

Bonsoir,

N'ayant pas WD9 ni WD8, je n'ai pas vu le code de DrCharly, et si il pouvait avoir la possibilité d'avoir le code en txt je suis preneur.

Ci joint le code que j'utilise et qui fonctionne, a adapter en fonction des besoins.

PROCEDURE kill_process_id(Xlp_pid) // Xlp_pid est le pid récupéré par lanceexe
hProcess est entier sur 4 octets
pid est entier sur 4 octets =Xlp_pid
nRetour est un booléen

// 0x1 = process_terminate
hProcess=AppelDLL32("KERNEL32","OpenProcess",0x1, False, pid)

// si le process =0 c'est que l'appli n'existe plus
SI hProcess=0 ALORS RENVOYER Vrai
nRetour=AppelDLL32("KERNEL32","TerminateProcess",hProcess,0)
nRetour=AppelDLL32("KERNEL32","CloseHandle",hProcess)

SI nRetour=0 ALORS
Info("Le process ID "+Xlp_pid+" n'est pas fermé")
RENVOYER Faux
SINON
RENVOYER Vrai
FIN