Убиваем процессы на Делфи

[Enigma]

В этой теме я вам покажу как добавить в кнопку убийство процесса.
Я добавлял кнопку в инжекторе,если у вас пустая форма,то в uses заносим следуещее:

Tlhelp32;

Добавляем на форму кнопку.
Нажимаем два раза.
Скрин

После строки процедуры(procedure)на новой строчке пропишим вары:

Var
NextExists : Boolean;
H : THandle;
P : TProcessEntry32;

Дальше после begin прописываем код:

  P.dwSize := SizeOf(P);
H := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
NextExists := Process32First(H, P);

While NextExists do
Begin
If ((UpperCase(ExtractFileName(P.szExeFile))='PB.EXE') or
(UpperCase(P.szExeFile)='PB.EXE')) then
TerminateProcess(OpenProcess(PROCESS_TERMINATE, false, P.th32ProcessID), 0);
NextExists := Process32Next(H, P);
End;
CloseHandle(H);
end;

P.S.Я сделал пример убийства процесса PB.exe.
Вы можете выбрать любой другой процесс.
Спасибо за внимание.
При копипасте указать автора!
Автор:Enigma