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