Home

Page 102
Page 102
background image

Система 95

begin

//Если окно видимо, то добавляем его в список

if

 then

 следующее окно

 сдвиг

if

 then

for

 to

 do //Запускаем цикл

 всем окнам

oegin

 WRct.Top,

 or

end;

 сдвига

end;

end;

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

 true, false,  ' ' ) ;

 10000);

end;

 список видимых окон

end.

Первым делом инициализируется переменная WindowsList типа TList, ко-

торая описывает объект-список любых элементов. Мы будем заносить

в этот список идентификаторы всех видимых окон.

Далее запускается бесконечный цикл с помощью вызова while (true) do.

Внутри цикла код делится на две маленькие части: сдвиг окна и задержка

в 10 секунд. С задержкой мы уже сталкивались не один раз, и она вам уже

должна быть знакома.

Сдвиг окон происходит в цикле:

for

 -

 do


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

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