Discussion :

[cre3000]

Il y a shellexecute pour ouvrir un .exe mais y a t'il une fonction

pour fermer un programme ???

Merci pour votre réponse

[Andnotor]

Non, il n'y a pas de fonction inverse de ShellExecute !
Trouve la fenêtre principale par un FindWindow et envoye-lui le message WM_CLOSE.

Sinon, exécute le programme par CreateProcess et dans ce cas, tu pourras utiliser TerminateProcess.

[Droïde Système7]

Salut,

Si j'ai bien saisi le sens de ta question ; suffit de passer par un FindWindows() afin de trouver l'Handle de l'appli cible, et d'ensuite la killer via un :

Code :

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

SendMessage(H, WM_CLOSE, 0, 0);

@+

Edit : arfff ! grillé par mon camarade Andnotor

[cincap]

Bonjour à toutes et à tous,

@ Cre3000, essaye ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
Var aHandle : THandle;
Begin
  aHandle := FindWindow('tonapplication', Nil);
If aHandle > 0 Then  Begin
  SendMessage(aHandle, WM_CLOSE, 0, 0);
  Application.Terminate;
End;
 
end;

@+,

Cincap

[archonte]

La indique ceci ou cela ...



Edit : Bien Grillé ! Et voilà comment une petite absence de 30 min fait passer un message à la dernière place !!!