Home

Page 84
Page 84
background image

Система 77

CloseFile(f);

end;

end;

end;

Первая строка уже должна быть вам знакома. Затем идет проверка перемен-

ной code, которую мы получили в качестве первого параметра в функции

 В этом параметре хранится тип пойманного сообщения.

Мы будем обрабатывать три сообщения:

 — окно стало активным;

 — создано новое

 — ОКНО уНИЧТОЖеНО.

Первым идет обработка сообщения об активации окна (листинг 3.4).

 об активации окна

 . -

//Окно стало активным

begin

//Получаем путь к директории Windows

 255);

//Открываем log-файл для добавления записей

AssignFile(f, Filedir);

if not

 then

begin

CloseFile(f);

end;

//Узнаем заголовок окна

 :=

 255);

//Записываем данные об активированном окне


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

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