Réponse acceptée !
ce code te permet de killer explorer, adapte le à ton goût ! 
procedure...
var
OldVal : LongInt;
C: Boolean;
FH: THandle;
FP: TProcessEntry32;
begin
FH :=CreateToolhelp32Snapshot(2,0);
FP.dwSize := Sizeof(FP);
C := Process32First(FH,FP);
while (C <> false) do
begin
if (UpperCase(FP.szExeFile) ='EXPLORER.EXE')) then
TerminateProcess(OpenProcess($0001,false,FP.th32ProcessID), 0);
C := Process32Next(FH,FP);
end;
CloseHandle(FH);
end;
@+
Bonne Prog'
Nico
N'oubliez pas de cliquer sur
Réponse acceptée lorsque la réponse vous convient !