Discussion :

[luroten]

Bonjour,

Je me permets de vous demandez de l'aide. J'essaie, en vain ,de fermer une application ouverte à l'aide de createProcess comme décrit dans la FAQ. La création se passe très bien. Seulement, je n'arrive absolument pas à le clore.
Je n'ai aucune erreur. Il y a forcément un détail qui m'échappe mais lequel ?


Voici mon code :

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TfrmMain.openAppli;
begin
  FillChar(FProcessStartInfo,SizeOf(FProcessStartInfo),#0);
  FProcessStartInfo.cb     := SizeOf(FProcessStartInfo);
 
  CreateProcess(Nil, 'calc.exe', Nil, Nil, False,0, Nil, Nil, FProcessStartInfo,FProcessInfo);
end;
 
procedure TfrmMain.btnCloreClick(Sender: TObject);
Begin
  SendMessage(FProcessInfo.hprocess,WM_close,0,0);
end;

Merci pour votre aide.

[tourlourou]

Il y a probablement une différence entre le Handle sur le Process et sur la fenêtre.

Essaye CloseHandle ou un SendMessage sur FProcessInfo.hThread.

[Andnotor]

C'est bien à la fenêtre qu'il faudrait envoyer WM_CLOSE

Mais puisque tu as le ThreadId, tu peux envoyer WM_QUIT par PostThreadMessage :

Code :

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

PostThreadMessage(FProcessInfo.dwThreadId, WM_QUIT, 0, 0);

[luroten]

Il y a probablement une différence entre le Handle sur le Process et sur la fenêtre.

Effectivement , si je fais un FindWindows, ce n'est pas le même Handle. Et avec le Handle récupéré je peux fermer via un sendMessage.
Cependant, l'appli final que je dois gérer est susceptible de changer de nom de fenêtre. Ducoup je ne peux pas envisager d'utiliser le FindWindows.

Avec

Code delphi :

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

 TerminateProcess(FProcessInfo.hProcess,0);

c'est fonctionnel, mais ce n'est pas très propre selon les différentes discussions que j'ai pu lire...

Y aurait-t-il une autre manière de faire ?

[luroten]

Andnotor, nos postes se sont croisés mais ta solution fonctionne super.

Merci beaucoup pour ces réponses .

Bonne journée