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
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !