Sep 17

Пишем программу для розыгрыша на Делфи. Часть 2

Теперь наша программа сворачивать все окна ... И к тому же не останавливаясь чтобы не повесить программу в вечный цикл дадим ей отдохнуть :
sleep ( 600000 ) / / 1мин = (1000 * 60 ) = 60000 , 10 мин = 600000.

Эта строка должна быть последним в цикле.
2. Блокируем устройства ввода . Для этого используем стандартную винд- функцию.
procedure BlockInput ( ABlockInput : boolean ) ; stdcall ; external ' USER32.DLL ';

Объявляем ее сразу после Uses . Используется очень просто : True - блокирующий False - разблокирует . Однако в ее работе есть один минус , Блокировка снимается простым Ctrl + Alt + Del . Поэтому нам придется принудительно вызвать ее через некоторое время. Это мы сделаем позже а пока проверим работу программы , добавив блокировки
BlockInput ( True ) ;

3 . Итак окна свернуты, клавиатура и мышка заблокированы, пора написать что-то на экране , для этого используем еще одну функцию :
procedure writedc ( s : string ; x : integer ; y : Integer ; BGColor : TColor ; FontColor : Tcolor ; FontName : String = ' fixedsys ');
var c : tcanvas ;
begin
c : = tcanvas.create ;/ / создаем канву (поле для рисования ) .
c.brush.color : = BGColor ; / / Устанавливаем цвет фона
c.font.color : = FONTColor ;/ / Устанавливаем цвет текста
c.font.name : = FontName ;/ / Устанавливаем шрифт
c.handle : = getdc ( getwindow ( getdesktopwindow , gw_owner ) ) / / Захватываем управления канвой экрана
c.textout ( x , y , s ) ;/ / Печатаем на канве
c.Refresh ;/ / обновляет изображение
c.free ;/ / Освобождаем управления
end ;

Данная функция также проста в использовании:
s : string ; - Текст
x : integer ; - Положение первого символа в пикселях ( слева )
y : Integer ; - Положение первого символа в пикселях ( сверху)
BGColor : TColor ; - Цвет фона
FontColor : Tcolor ; - Цвет шрифта
FontName : String = ' fixedsys ' - Название шрифта (можно не передавать вообще).
Попробуем писать :
writedc (' Hello word ' , 50,50 , clRed , clWhite , ' Comic Sans MS ');

 


Поделитесь вашими мыслями



Ссылки в комментариях будут свободны от nofollow.

Поддерживаемые теги: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong> 

Ссылки в комментариях будут свободны от nofollow.