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

Советы » Windows » Как повесить винду

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com