Fermer une autre application depuis une application Delphi

Le besoin est dans le titre
J'utilise le code suivant :

Code:

---

1 2 3 4 5 6 7

h:= 0; t:= GetTickCount; while (h = 0) and (GetTickCount - t < TimeOut) do begin h:= FindWindow(Nil, PChar(pCaption)); Application.ProcessMessages; end; windows.CloseWindow(h);

---

Le problème est que la valeur de h est bien trouvée mais l'application n'est pas fermée.

As-tu essayé avec un

Code:

---

SendMessage( h, WM_CLOSE, 0, 0 );

---

WM_QUIT ?

Oui je d'essayer de le faire et ca marche.