Discussion :

[alll1]

bonjours a toutes et tous,
débutant en delphi7
apres avoir pas mal chercher sur les forum et sur le net
je vous pose ma question :

sauriez vous comment je pourrai fermer une autre application active depuis ma form ?
attention: il ne sagis pas d'une autre fiche dans le meme programme mais bien d'un autre exe que j'appel depuis ma form1
j'arrive a ouvrir un programme depuis un tbutton la pas de souci sa marche
j'appelle mon prog """" mon-prog1.exe """"
mais si j'essais de le refermé depuis ma form1.onclose ou depuis mon form1.button1.clic il ne se passe rien

j'ai bien essayer de le fermé avec cette comande dans un tbutton1 mais niette rien ne se passe
peut etre parceque le prog est en second plan ou arriere plan ?????? ou je ne trouve pas le handle ?
je doit surement mal faire mais je ne trouve pas quoi
pouvez vous m'aidé svp merci
cordialement

voici mon code actuel

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var
mon-prog1 :THandle;
begin
  mon-prog1 := FindWindow('mon-prog1',nil); //"""" mon-prog1 """"  est le nom de mon prog ouvert a refermé
  PostMessage(mon-prog1,WM_CLOSE,0,0); // ferme la fenêtre sans confirmation 
end;

[XeGregory]

https://www.developpez.net/forums/d6...terne-wm_close

[alll1]

https://www.developpez.net/forums/d6...terne-wm_close

bonsoir gregory,
merci pour le lien
j'ai deja visité cette page du forum et rien compris du tout

je voie que une autre personne a le meme probleme oui bien sur
pourquoi en réponse y as il une fonction qui ne résou pas ce probleme de fermeture ?
de plus la question n'est pas résolut non plus ?

avec vous connaissance ou un bout de code utilisant wm_close ? et qui fonctionne !!!

cordialement

[der§en]

Alors, première question pour comprendre le contexte: comment lances-tu le programme que tu veux fermer ?

Sinon, tu peux aussi essayer ceci:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.btn_closeClick(Sender: TObject);
var
  h: HWND;
begin
  h := FindWindow('monappli ', nil);  // monappli doit être le titre de sa fenêtre, par exemple pour notepad.exe, le titre de la fenêtre est notepad.
  if h <> 0 then
    PostMessage(h, WM_QUIT, 0, 0);
end;

[XeGregory]

https://delphi.developpez.com/faq/?p...tir-de-son-nom

[ShaiLeTroll]

j'arrive a ouvrir un programme depuis un tbutton la pas de souci sa marche

Je souligne cela !
ShellExecute ou CreateProcess, tu sais que le handle retourné pourrait te servir à controler l'exe cible par son process directement !




Faut juste lire la documentation

Code :

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

1
2
3
4
5
 
HWND FindWindowA(
  [in, optional] LPCSTR lpClassName,
  [in, optional] LPCSTR lpWindowName
);

le premier paramètre c'est la classe et le second le titre
Tu ne fournis aucune de ce deux informations mais le nom de l'exe "mon-prog1.exe", premier élément pour deviner une confusion. Comme tu n'es pas informaticien, faut commencer par la terminologie.

le premier lien fourni par XeGregory comme par un FindWindow avec le second paramètre alimenté et non le premier, toujours le dilemme d'utiliser la classe ou le titre ?
Les deux étant l'idéal, le titre varie selon la langue et la version de Windows ou du programme cible (surtout si tu n'en pas l'auteur)

C'est déjà la première chose à regarder : La notion pour une fenêtre de classe et titre

Ensuite, le sujet cité montre une autre méthode d'énumération, au lieu des fenêtres cela passe par le processus, tu es débutant, faudrait déjà bien comprendre la différence entre Fenêtre et Process.

Tu cherches 'mon-prog1' par ce que ton projet s'appelle "mon-prog1.exe" c'est pour cela que XeGregory a proposé une approche par le nom de l'exe associé au Process.

Quelques exemples

Nom Programme	Classe de Fenetre	"Titre de Fenetre"
bds.exe	TAppBuilder	"Project1 - Delphi 10 Seattle - Unit1"
Notepad.exe	Notepad	"Sans titre | Bloc-Notes"
Project1.exe	TForm1	"Form1"

[Andnotor]

Attention tout de même, si l'app cible est lancée plusieurs fois FindWindow va retourner la première fenêtre trouvée qui ne sera pas forcément la bonne.

Mais puisque tu lances toi-même ce programme, utilise plutôt ShellExecuteEx ou CreateProcess qui permettent de mémoriser le ThreadID et ainsi d'envoyer WM_QUIT par PostThreadMessage.

Et si on ne veut pas que l'app lancée survive à la sienne, on peut l'inclure dans un job.

[alll1]

https://delphi.developpez.com/faq/?p...tir-de-son-nom

j'ai effectivement suivie l'idée de la fermeture par la fonction et sa fonctionne
mon probleme est résolut merci a vous tous pour vos conseille et explication

j'ai rajouter TlHelp32 dans uses

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
function KillProcess(const ProcessName : string) : boolean; 
var ProcessEntry32 : TProcessEntry32; 
    HSnapShot : THandle; 
    HProcess : THandle; 
begin 
  Result := False; 
 
  HSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
  if HSnapShot = 0 then exit; 
 
  ProcessEntry32.dwSize := sizeof(ProcessEntry32); 
  if Process32First(HSnapShot, ProcessEntry32) then 
  repeat 
    if CompareText(ProcessEntry32.szExeFile, ProcessName) = 0 then 
    begin 
      HProcess := OpenProcess(PROCESS_TERMINATE, False, ProcessEntry32.th32ProcessID); 
      if HProcess <> 0 then 
      begin 
        Result := TerminateProcess(HProcess, 0); 
        CloseHandle(HProcess); 
      end; 
      Break; 
    end; 
  until not Process32Next(HSnapShot, ProcessEntry32); 
 
  CloseHandle(HSnapshot); 
end;
//------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
 
   KillProcess('mon-prog1.exe') ;
end;

cordialement