Comment lister les exécutables actifs ?

**Lung** · 13/04/2004, 09h03

Avec EnumWindows, j'obtiens la liste des fenêtres (titre des fenêtres).

Je voudrais faire la même chose, mais en récupérant la liste des exe actifs. Comment faire ?

**Thunder_nico** · 13/04/2004, 09h46

ca a deja ete traite fait une recherche avancee sur le forum!

**Lung** · 13/04/2004, 10h03

Envoyé par Thunder_nico

ca a deja ete traite fait une recherche avancee sur le forum!

C'est ce que j'ai fais, bien sur ...

... mais j'ai rien trouvé ...

Un lien ?

**aravis** · 13/04/2004, 10h22

Pour tuer une application j'utilisais ceci, ça semble se baser sur la liste des process et non les fenêtres, si tu peux t'en inspirer...

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
 
uses Classes,Tlhelp32, Windows, Dialogs, Messages, SysUtils, Variants, ShellAPI;
 
 function KillTask(ExeFileName: string): integer;
    const
        PROCESS_TERMINATE=$0001;
    var
        ContinueLoop: BOOL;
        FSnapshotHandle: THandle;
        FProcessEntry32: TProcessEntry32;
    begin
        result := 0;
 
        FSnapshotHandle := CreateToolhelp32Snapshot
        (TH32CS_SNAPPROCESS, 0);
        FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
        ContinueLoop := Process32First(FSnapshotHandle,
        FProcessEntry32);
 
        while integer(ContinueLoop) <> 0 do
        begin
        if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
        UpperCase(ExeFileName))
        or (UpperCase(FProcessEntry32.szExeFile) =
        UpperCase(ExeFileName))) then
        Result := Integer(TerminateProcess(OpenProcess(
        PROCESS_TERMINATE, BOOL(0),
        FProcessEntry32.th32ProcessID), 0));
        ContinueLoop := Process32Next(FSnapshotHandle,
        FProcessEntry32);
        end;
 
        CloseHandle(FSnapshotHandle);
    end;