Savoir si un programme est en cours d'execution

[Le Soldat Inconnu]

Code : Tout sélectionner

Procedure.l IsRunning(Nom.s)
  ; nom = nom de la fenêtre en cours
  ; valeur de retour de la procedure :
  ; <> 0 : OK
  ; = 0 : Le logiciel n'est pas en cours d'exécution

  ProcedureReturn FindWindow_(vbNullString, nom)
EndProcedure

Debug IsRunning("Calculatrice")

vous lancer la calculette de windows (dans menu démarrer\accessoire) et vous lancer mon code