Программа рисования на экране

Аватар пользователя admin
Опубликовано чт, 08/11/2012 - 12:19 пользователем admin

Категория:

Архив:

Язык интерфейса:

  • Русский

Платформа:

  • Windows

Среда разработки:

  • Delphi 7
Программа (для ознакомления): 
Файл app_i_sourcecode_randompixel06.rar
Комплектация: 
Проект и программа в пункте "Демо-версия". Примечание: Возможно работает только на системе Windows XP (на других не тестировалось) и так как возможно антивирусы будут ругаться на архив с программой "application_randompixel2006.rar", то к архиву сделан пароль: f225r_DwKwfda
Задать вопрос Delphi программисту

Программа в цикле рисует по всему экрану пикселями. За один проход ставится на экран 42 пикселя одного генерированного цвета. Количество проходов зависит от количества строк кода следующего содержимого: desk.Pixels[Random(cWidth), Random(cHeight)] := color; Интересует может почему не сделан цикл на 42 итерации? Дело в том что циклу нужно больше ресурсов компьютера, а такое решение является в данном случае оптимизацией.

После запуска программы, через 10 минут (Sleep($927C0);) начнется рисование разными пикселями на экране. Чтобы завершить программу, необходимо зайти в диспетчер задач, перейти во вкладку "Процессы" и найти там процесс pixel.exe, который необходимо удалить из процессов.

Скрины к работе: