Home

Page 101
Page 101
background image

94

Глава 3

 Remove

Remove

No

 З.7. Менеджер проектов

Из всего содержимого мы оставим только первую строку с именем про-

граммы и строку uses, куда допишем еще три модуля: windows, classes и

forms. Все остальное удаляйте, а вместо пишите содержание листинга 3.10.

 окна"

i,

h:THandle;

 : TList; //Здесь будет храниться список видимых окон

 TRect;

W :THandle;

begin

 //Создаем список видимых окон

while (true) do

begin

 цикл сдвига окон

for

 downto

 do

begin

 //Очищаем список

while

 Do //Запускаем поиск всех видимых окон


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

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