Discussion :

[jmjmjm]

comment pe t'on tuer le processus explorer SVP MErci
Jeremy

[lil_jam63]

Bonjour et bienvenue sur les forums de Developpez.com.

Voilà une petit fonction qui s'en charge très bien :

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

Et la manière dont l'appeler:

Code :

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

1
2
3
4
5
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  KillTask('explorer.exe');
end;

PS: Ne pas oublier de rajouter Tlhelp32 dans les uses.

[jmjmjm]

Merci beaucoup mais comment faire pour que l'explorer ne se relance pas (Win XP) et est ce que l'explorer se relance sous win NT

[lil_jam63]

Le process explorer se relançera toujours, c'est une fonctionnalité windows, sii tu veux le bloquer définitivement, faudra ruser un peu mais explique moi ce que tu veux faire exactement.