Comment lister les exécutables actifs ?

Version imprimable

13/04/2004, 09h03
Lung

Comment lister les exécutables actifs ?

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 ?

:roll: :hola:
13/04/2004, 09h46
Thunder_nico

ca a deja ete traite fait une recherche avancee sur le forum! ;)
13/04/2004, 10h03
Lung

Citation:

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 ... :wink: ... mais j'ai rien trouvé ... :(

Un lien ?

:roll:

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... :idea:

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
 
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;

15/04/2004, 08h22
Lung

Connaissais pas Tlhelp32.

:merci: pour la piste !
15/04/2004, 08h34
Pascal Jankowski

Cela m'intéresse, où peut-on trouver Tlhelp32 ?
15/04/2004, 12h46
Lung

Citation:

Envoyé par Pascal Jankowski

Cela m'intéresse, où peut-on trouver Tlhelp32 ?

Avec Delphi. Il m'a suffit de l'ajouter dans mes uses.

:wink:
15/04/2004, 13h03
Pascal Jankowski

Ok en ajoutant à uses.

J'avais fais une petite erreur en recopiant le nom de l'unité... :oops: