ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Autre fonction pour lister et killer des process en VFP   



L'auteur

ThierryS
Canada Canada
Membre Simple
# 0000001388
enregistré le 09/01/2007

http://www.adnmedical.com

Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Autre fonction pour lister et killer des process en VFP
# 0000000392
ajouté le 09/01/2007 22:48:08 et modifié le 09/01/2007
consulté 7865 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description
Je sais qu'il y a d'autres moyen de le faire sur le forum, mais en voici encore un autre assez simple.

la ligne GETOBJECT("winmgmts://") peut être remplacé par GETOBJECT("winmgmts://nom_de_machine/") afin d'avoir la liste des process d'une autre machine, mais ça fonctionne pas toujours.

Code source :
FUNCTION KillProcess(lcExe)

oWMI = GETOBJECT("winmgmts://")
loProcesses = oWMI.InstancesOf("Win32_Process")
lcExe = LOWER(lcEXE)

FOR EACH loProcess in loProcesses
  ? loProcess.Name      && Affiche le nom du process (à supprimer pour mode silencieux)
  IF LOWER(loProcess.Name) = lcExe
    IF loProcess.Terminate() = 0      && Termine l'application
      RETURN .T.
    ENDIF
  ENDIF
ENDFOR

RETURN .F.
Commentaires
le 10/01/2007, Mike Gagnon a écrit :
Déjà lister dans http://www.atoutfox.com/articles.asp?ACTION=FCONSULTER&ID=0000000078
Ou presque pareil

le 10/01/2007, EmanuelL a écrit :
Je cherche à faire une fonction pareille mais pour de process qui sont sur de PCs en réseau.
Avez-vous une idée?


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3