Как повесить винду?

Nomadic предлагает следующий код:

uses TLHelp32;

const
PROCESS_TERMINATE=$0001; var
FSnapshotHandle:THandle; FProcessEntry32:TProcessEntry32; ContinueLoop:BOOL; begin
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);

FProcessEntry32.dwSize:=Sizeof(FProcessEntry32); ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32); while integer(ContinueLoop)<>0 do begin if LowerCase(ExtractFileName( (FProcessEntry32.szExeFile)))='kernel32.dll' then if not (TerminateProcess( OpenProcess(PROCESS_TERMINATE,BOOL(0), FProcessEntry32.th32ProcessID),0)) then MessageBoxEx(Application.Handle,
'Can`t kill windows kernel...', 'Warning',MB_ICONWarning+MB_OK,$0419); ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32); end; CloseHandle(FSnapshotHandle); end;

[001724]

Содержание раздела