Home

Page 50
Page 50
background image

Простые шутки 43

 в 5 миллисекунд

end;

//Дальше идет опускание кнопки. Алгоритм тот же,

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

for

 1 do

begin

Top: =Screen.

 ;

end;

 //Уничтожается указатель h

Visible:=false; //Прячется

end;

Я постарался снабдить этот листинг подробными комментариями, так что,
надеюсь, вы разберетесь с приведенными кодом.
В принципе программа готова, и ее можно запускать. Но если вы сделаете

это сейчас, то она появится в TaskBar, что абсолютно недопустимо для
программы-прикола. Давай напишем код, который спрячет наше приложе-

ние от грозного взгляда Панели задач. Для этого выберите пункт меню View
Source
 из меню Project. Перед вами появится исходный текст самого проек-

та. Сравните его с листингом 2.2, и недостающее допишите.

Листинг 2-2. Скрытие

 i

program Projectl;

uses

Forms,

Windows,//Это добавлен модуль Windows

 in

 fForml};

{$R

//Далее добавлена новая переменная

 : integer;


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

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