Comment savoir si une application est lancée ?

Bonjour,

J'essaie de faire une application Delphi qui lance et utilise Word. Mais je ne veux pas qu'il soit possible de lancer deux fois Word. Comment savoir si une application est déjà lancée ?
Merci d'avance pour votre aide.

Salut,

Essaye ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10

var myHandle: HWND; begin myHandle := FindWindow('OpusApp', nil); if myHandle > 0 then ShowMessage('Instance de Microsoft Word trouvée') else ShowMessage('Instance de Microsoft Word non trouvée'); end;

---

Note: Test effectué Word2003
@+

Salut Claudius40,

Je viens d'essayer le code que tu proposes.
Ca marche parfaitement !! J'avais pourtant bien cherché sur le web, sans résultat.
Décidément, encore un grand merci à toi...