Discussion :

[Lung]

J'ai une application qui peut être lancée plusieurs fois.
Une commande permet de parcourir tous les processus, pour fermer les instances ouvertes de mon application (en utilisant le nom de l'exe).
Le problème, c'est que comme je ne sais pas reconnaitre le processus de l'application qui a donné l'ordre, elle se ferme elle aussi (et parfois, avant d'avoir fermé tous les autres).

Comment identifier le processus de l'application (de manière unique) ?

[Rayek]

Pourquoi ne pas recupérer le handle de la fenêtre (ou autres) et de supprimer tous les autres processus identique qui n'ont pas cet handle ?

[Lung]

Pourquoi ne pas recupérer le handle de la fenêtre (ou autres) et de supprimer tous les autres processus identique qui n'ont pas cet handle ?

Oui, il a une fenêtre visible.
Mais comment passer du handle du processus au handle de fenêtre (et inversement) ?

[Rayek]

si tu arrives a récuper le handle du processus, tu dois pouvoir rendre l'application active,
et si tu rends l'application active tu peux récupérer le handle de la fenêtre active.

[Lung]

si tu arrives a récuper le handle du processus, tu dois pouvoir rendre l'application active,
et si tu rends l'application active tu peux récupérer le handle de la fenêtre active.

Tu n'aurais pas un exemple de fonction pour faire ça sous la main ?

[Rayek]

Avec GetCurrentProcess et OpenProcess tu devrais normalement pouvoir avoir ce que tu veux.

GetCurrentProcess : lui te fournit le handle de l'appli en cours

Après tu dois pouvoir modifier ce code de manière à pouvoir tuer correctement ton appli sauf celle qui est en court (grace au handle recup par GetCurrentProcess).

[Lung]

Avec GetCurrentProcess

Ca me semble pas mal.
Je teste ...

Sinon, quelle différence avec GetCurrentProcessID ?

[Lung]

Bon, ca marche :

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
35
36
37
function TMainForm.FermeT: Integer;
var
   nSnapShot: Integer;
   nHandleProcessus: DWORD;
   FProcessEntry32: TProcessEntry32;
begin
   Result := 0;
 
   //.ID du processus courant.
   nHandleProcessus := GetCurrentProcessID;    // <---
 
   nSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 
   //.Si erreur.
   if nSnapShot = -1 then
      Exit;
 
   FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
   if Process32First(nSnapShot, FProcessEntry32) then
   begin
      //.Tant qu'il reste un processus.
      repeat                            
         if AnsiLowerCase(ExtractFileName(FProcessEntry32.szExeFile)) = AnsiLowerCase(ExtractFileName(Application.ExeName)) then
         begin
            //.Si autre processus.
            if FProcessEntry32.th32ProcessID <> nHandleProcessus then
            begin
               //.Suppression du processus.
               if not TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0) then
                  Inc(Result);
            end;
         end;
      until not Process32Next(nSnapShot, FProcessEntry32);
   end;
 
   CloseHandle(nSnapShot);
end;