hook на установку Hook'a

[Den7656]

Есть ли возможность на delphi поставить hook на установку Hook'a.
Интересует как это можно реализовать.
Хочу написать мальнькую программу которая показывала, что такой-то процесс пытается установить hook на такой-то (такие-то) процессы, и вызывал окошко с запросом у пользователя, разрешить-ли это действие.
Спасибо за внимание к посту.

[haruhi]

перехватывать функцию SetWindowsHookEx.
ключевые слова для поиска "перехват API", "сплайсинг"

[yuran666666]

Проактивные защиты файрволлов это вполне умеют показывать и предотвращать по желанию, перехватывая установку хуков в режиме ядра.

[Den7656]

yuran666666, да я в курсе насчет всего этого... Просто хочется эту фишку в свою софтину, которая и так занимается перехватом различных подозрительных хуков добавить. С созданием и запуском файлов и многом другом уже разобрался, многое уже готово, остался вопрос только в этом. Попробую разобраться с SetWindowsHookEx про который написал, haruhi.
Да, и еще, может у кого есть готовый вариант или наброски кода, буду очень благодарен.