Home

Page 98
Page 98
background image

Система 91

begin

//Запускаем перечисление всех окон

 .

//Делаем задержку в 1000 мс

 true, false,  ' ' ) ;

 1000);

end;

end.

Если вы посмотрите на этот код, то заметите, что основное содержание

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

ри которого вызывается функция

 всех окон и делается задержка

в 1 000 миллисекунд. В этой части абсолютно никаких изменений нет.

Теперь посмотрим на функцию ловушки EnumWindowsWnd, которая будет вы-

зываться каждый раз, когда найдено окно. Тут первой вызывается функция

 Эта функция проверяет, является ли найденное окно

видимым. Если нет, то переменной Result присваивается значение true,
и происходит выход из ловушки. Если Result равно true, то поиск сле-

дующего окна будет продолжен, иначе он остановится, и следующее окно не

будет найдено.

После этого вызывается функция

 Этой функции передается

в первом параметре идентификатор найденного окна, а она возвращает во
втором параметре размеры этого окна в виде переменной типа TRect.

Получив габариты окна, генерируется случайное число с помощью функции
random. Этой функции надо передать только значение максимально допус-

тимого числа, а она вернет случайное число от о до указанного значения.

После этого я проверяю, если число после округления (index обявлена как

целая переменная) равно о, то я увеличиваю свойства тор и Left на з структу-

ры rect. Иначе эти значения уменьшаются.

Изменив значения структуры, в которой хранились габариты найденного

окна, это окно перемещается с помощью функции

 Эта функция

имеет 5 параметров.

1. Идентификатор окна, позицию которого надо изменить (h).

2. Новая позиция левого края

3. Новая позиция верхнего края
4. Новая ширина

 Left).

5. Новая высота (rect

 Top).

4


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

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