Исходник - Драйвер для перехвата завершения процесса с примером

Опубиковано: 31.07.2009 г., автор: , просмотров: 43740

Delphi исходники - Перехват завершения процесса.

Отличный пример программы с драйвером перехвата завершения процесса, прислал мне один из посетителей сайта.
Работает он следующим образом, объясняю на пальцах. Запустите control.exe и драйвер автоматически начнет работу. Если все ОК, то в окне программы будет написано "Драйвер успешно инициализирован! Теперь можете попробовать завершить процесс с PID: хххх (Тут хххх PID запущенного процесса)", в противном случае будет написано: "Ошибка инициализации драйвера!"

delphi_driver

Теперь попробуем убить процесс, открываем Диспетчер задач (ALT+CTRL+DEL), на закладке "Приложения" находим приложение с именем "control" выделяем его и жмем на кнопку "Снять Задачу", через пару секунд Вылезает окно с текстом "Закрытие приложения не возможно потому что оно блокировано системой".

delphi_driver завершение процесса

то же самое будет, если мы попытаемся убить процесс в диспетчере задач.

delphi запрет завершение процесса

В итоге программу можно закрыть лишь, после того как в ней нажать на кнопку "Остановить защиту"

Вот такой вот интересный пример, демонстрирующий запрет завершения процесса

скачать Скачать Delphi исходник запрет завершения процесса

Внимание: Драйвер тестировался только на Windows XP (SP2 и SP3).
На других версиях Windows возможен BSOD.
Драйвер распространяется без исходного кода.
Драйвер написан на Windows Driver Developer Kit.

Автор: Лакутин Иван Владимирович (Lightsoft)
По всем вопросам обращайтесь:
ICQ: 6266012
E-Mail: Lightsoft92@mail.ru

P.S. Хотите вперед всех остальных посетителей сайта получать свежие Видео уроки, Аудио подкасты, статьи по Delphi.
Участвовать в конкурсах и постепенно вливаться в нашу команду ?!
Тогда прямо сейчас подписывайтесь на бесплатную мультимедийную рассылку сайта delphiexpert.ru
Нас уже больше чем 2000 человек ! Подписаться



Похожие материалы

Последние из рубрики

Виталий 15 Feb 2011 в 00:00 #
Автору Спасибо,давно искал подобное.
Аркадий 25 Jan 2011 в 00:00 #
Мой антивирь Eset Smart Security не даёт скачивать! Исходник сплошной троян!!!
TLS 15 Jan 2011 в 00:00 #
ггг..
в этом драйвере полторы с половиной строки в функэ которая ответствена за запрет доступа к процессу. Из за чего сраться полтора года-вопрос ко всем? что тут продавать то, мля-вопрос к автору?
TLS 15 Jan 2011 в 00:00 #
код же скопипижжен чуть более чем полностью из функции, из драйвера с васма (уже шла речь выше) единственное что автор изменил - так это произвел кастрацию того кода. вообщем автар-мудаг, пороху не нюхал!!11
      05 Jan 2011 в 00:00 #
Да что вы все накинулись то на меня? Хах Андрей, мудак - это ты т.к. там нет C++ кода в архиве. А имя я перестал писать т.к. мною подписываются другие пользователи!

ОтменитьДобавить комментарий