Home

Page 80
Page 80
background image

Система 73

Все, наше приложение готово. Запустите его. Потом перейдите в окно со
строкой ввода пароля, и щелкните в поле ввода левой кнопкой

удерживая <Ctrl>. Звездочки моментально превратятся в реальный текст.
Для приличия можно перенести на форму программы, загружающей

 ка-

кую-нибудь картинку, чтобы она не выглядела тусклой. Я в своей программе
не стал делать никаких украшений.

На компакт-диске в директории \Примеры\Глава 3\Пароли вы можете уви-

деть пример программы и цветные рисунки этого раздела.

3.2. Мониторинг исполняемых файлов

Давайте попробуем написать еще один пример с использованием ловушки

системных сообщений. На этот раз я покажу, как написать программу, ко-

торая будет сидеть в системе и следить за тем, какие программы запускают-

ся и сколько времени находятся в рабочем состоянии. Все, что программа

узнает, будет занесено в файл-отчет.

Начнем работу над примером с разбора устройства файла динамической

библиотеки. В прошлый раз мы использовали функцию

 которая

устанавливала в системе нашу ловушку. В качестве ловушки выступала

функция

 в которую попадали все системные сообщения ука-

занного типа. В сегодняшнем примере все будет так же, и ничего серьезного

не поменяется (листинг 3.2)

function

 : Boolean) : Boolean; export; stdcall;

begin

Result

 false;

if Hook then

begin

if SysHook = 0 then

SysHook

 0);

Result

 (SysHook <> 0);

end

else

begin

if SysHook <> 0 then

begin


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.