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

  • Для просмотра чата и остального функционала вам нужно авторизоваться или пройти регистрацию!
Статус
В этой теме нельзя размещать новые ответы.

Enigma

Продвинутый пользователь
Автор темы
28 Окт 2011
84
5
41
В этой теме я вам покажу как добавить в кнопку убийство процесса.
Я добавлял кнопку в инжекторе,если у вас пустая форма,то в uses заносим следуещее:
Код:
Tlhelp32;
Добавляем на форму кнопку.
Нажимаем два раза.
Скрин
afotoxata.ru_files_69407726782063546828784557045323.jpg
После строки процедуры(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
 
Статус
В этой теме нельзя размещать новые ответы.

Пользователи, просматривающие эту тему

Сейчас на форуме нет ни одного пользователя.