Discussion :

[Teddy]

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.

[Cl@udius]

Salut,

Essaye ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
@+

[Teddy]

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...