WDForge.org - Forums

Re: Re :Arreter puis relancer l'appli??? Un bout de code !Merci bcp.

Sujet: Re: Re :Arreter puis relancer l'appli??? Un bout de code !Merci bcp.
par PopCorn sur 8/3/2005 15:37:12

Voici un petit bout de code pour récupérer le PID de l'application lancée

cbuffer est une chaîne
cListeProcessus est une chaîne
pID est un entier = 0
j est un entier = 1

cListeProcessus = ExeListeProcessus ( exePID , exeNomCourt )

cbuffer = ExtraitChaîne(cListeProcessus,j,RC,DepuisDébut)
TANTQUE cbuffer <> EOT
	SI ExtraitChaîne(cbuffer,1,TAB,DepuisFin) = fExtraitChemin(ExeInfo(exeNom),fFichier+fExtension) ALORS
		pID = ExtraitChaîne(cbuffer,1,TAB,DepuisDébut)
	FIN
	j++
	cbuffer = ExtraitChaîne(cListeProcessus,j,RC,DepuisDébut)
FIN

Info(pID)

Pour tuer le process, vous pouvez essayer ceci :


ps est un entier  

//---pID est le numéro récupéré juste dans le code au dessus
ps =  AppelDLL32("kernel32","OpenProcess" , 1, Faux, pID)
SI ps ALORS
	SI AppelDLL32("kernel32","TerminateProcess" , ps, -9) ALORS
	       Info("Process tué avec succès !")

	SINON
       	Info("Impossible de tuer le process !")
	FIN
 SINON
	Info("Impossible d'ouvrir le process")
FIN

Le code pour tuer le process n'a pas été testé