[D6] Comment identifier le processus de l'application ?

Version imprimable

06/02/2006, 11h13
Lung

[D6] Comment identifier le processus de l'application ?

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).

:arrow: Comment identifier le processus de l'application (de manière unique) ?
:hola:
06/02/2006, 11h20
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 ?
06/02/2006, 11h23
Lung

Citation:

Envoyé par Malatar

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) ?
06/02/2006, 11h34
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.
06/02/2006, 13h59
Lung

Citation:

Envoyé par Malatar

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 ?

:calim2:
06/02/2006, 14h28
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).
06/02/2006, 17h19
Lung

Citation:

Envoyé par Malatar

Avec GetCurrentProcess

:bravo: :yaisse:

Ca me semble pas mal.
Je teste ...

Sinon, quelle différence avec GetCurrentProcessID ?

Bon, ca marche :

Code:

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;

:merci: