Парижский С. М. Delphi УЧИМСЯ НА ПРИМЕРАХ Под редакцией Ю. А. Шпака "МК-Пресс" Киев, 2005 Введение Глава 1 Интерфейс в стиле Windows XP Глава 2 Работа с файлами Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 3 Работа с текстом. Статистика документа Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 4 Снимок экрана Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 5 Хранитель экрана Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 6 Программа просмотра рисунков Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 7 Блокнот-шифровальщик Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 8 Игра "Успей щелкнуть" Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 9 Игра "Угадывание чисел" Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 10 Вход в систему Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 11 Информация о памяти Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 12 Программа настройки Windows Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 13 Тест Постановка задачи Структура базы вопросов и ответов Разработка формы Разработка программного кода Полный исходный код модуля Глава 14 Генератор шуток Постановка задачи Разработка формы Разработка программного кода Шутка №1 — ограничение диапазона движения мыши Шутка №2 — отключение кнопок мыши Шутка №3 — отключение клавиатуры Шутка №4 — очистка буфера обмена Шутка №5 — назначение фона для Рабочего стола Шутка №6 — выбор фона случайным образом Шутка №7 — выключение монитора Шутка №8 — сообщение об ошибке, содержащее "мусор" Шутка №9 — открытие браузера Internet Explorer Шутка №10 — сброс системной даты/времени Полный исходный код модуля Глава 15 Отправка сообщений в локальной сети Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 16 Удаленное управление указателем мыши Постановка задачи Разработка клиентской программы Разработка формы Разработка программного кода Разработка серверной программы Полный исходный код модулей Глава 17 Бесплатная отправка SMS через Internet Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 18 FTP-клиент Постановка задачи Разработка формы Разработка программного кода Полный исходный код модуля Глава 19 Написание CGI-приложений Постановка задачи Разработка проекта Приложение А Коды клавиш и их значения Приложение Б Kylix — Delphi для Linux Приложение В Справочник по реестру Windows Общая настройка ПК Изменение разрешения экрана Установка задержки перед появлением контекстного меню Сокрытие изображение стрелки на ярлыках Сокрытие приставки "Ярлык для…" Запрет на редактирование реестра Отключение динамика ПК Включение динамика ПК Отключение возможности автозапуска с CD-ROM Отключение всплывающих подсказок в Проводнике и на Рабочем столе Автоматическое наведение указателя мыши на активную кнопку Отключение возможности открывать диспетчер задач Отключение возможности восстановления системы Очистка swap при выключении компьютера Изменение размещения папок и каталогов Изменение размещения папки Избранное Изменение каталога по умолчанию для программ Сокрытие пунктов системного меню Пуск Сокрытие пункта Пуск#8594;Найти Сокрытие пункта Пуск#8594;Программы#8594;Стандартные Сокрытие пункта Пуск#8594;Избранное Сокрытие пункта Пуск#8594;Документы Сокрытие пункта Пуск#8594;Панель управления Сокрытие пункта Пуск#8594;Выполнить Сокрытие пункта Пуск#8594;Настройка#8594;Принтеры Сокрытие пункта Пуск#8594;Настройка#8594;Панель задач Сокрытие пункта Пуск#8594;Завершение сеанса Сокрытие пункта Пуск#8594;Выключить компьютер Сокрытие всех дополнительных папок в меню Пуск Сокрытие папки Мои документы в меню Пуск Сокрытие различных элементов интерфейса Сокрытие дисков в папке Мой компьютер Сокрытие пиктограммы Принтеры в панели управления Сокрытие вкладок Общие и Сведения в окне свойств принтера Настройка Рабочего стола Сокрытие всех элементов Рабочего стола Сокрытие пиктограммы Internet на Рабочем столе Сокрытие пиктограммы Сетевое окружение на Рабочем столе Отключение возможности вызывать окно свойств экрана Отключение контекстного меню панели задач Отключение контекстного меню Рабочего стола Сокрытие папки Мои документа на Рабочем столе Сокрытие вкладок окна свойств экрана Сокрытие вкладки Оформление Сокрытие вкладки Фон Сокрытие вкладки Заставка Сокрытие вкладки Параметры Настройка браузера Internet Explorer Сокрытие команд меню, кнопок и панелей Сокрытие элементов окна Свойства обозревателя Общая настройка браузера Приложение Г Язык ObjectPascal Комментарии Идентификаторы Встроенные типы данных Числовые типы Символьный тип Строковые типы Булев тип данных Массивы Константы Переменные Пользовательские типы данных Множества Перечислимые типы Подтипы Записи Классы Определение членов класса Свойства класса Методы класса Конструкция with-do Структура проекта Delphi Файл проекта .dpr Файл программного модуля .pas Процедуры и функции Параметры Вызов процедур и функций Досрочный выход из процедуры или функции Операторы Оператор присваивания Арифметические операторы Булевы операторы Операторы сравнения Побитовые операторы Строковые операторы Операторы, применяемые к множествам Операторы, применяемые с объектами Группировка операторов Порядок выполнения операторов Блоки программного кода Конструкции ветвления Оператор if Оператор case Циклические конструкции Конструкция for-do Конструкция while-do Конструкция repeat-until Досрочный выход из циклов Обработка исключений Блок операторов finally
Разработка формы Создадим новый проект Delphi. Как известно, экранные заставки хранятся в файлах с расширением .scr, а по умолчанию проект Delphi компилируется как выполняемый файл .exe. Для того чтобы наша программа имела расширение .scr, выполним команду меню Project#8594;Options, на вкладке Application диалогового окна Project Options введем в поле Target file extension значение scr (рис. 5.1) и нажмем кнопку OK.
Все что нам понадобится на форме, — это два компонента Timer категории System. Первый будет служить для реализации постепенного насыщения формы цветом — для этого таймера следует изменить значение свойства Interval на 100. Второй таймер потребуется при постепенном уменьшении насыщенности цвета вплоть до того момента, когда форма вновь станет полностью прозрачной. Для этого таймера свойству interval следует также присвоить значение 100, а значение свойства Enabled изменить на False, поскольку изначально "затухания" происходить не будет.
Рис. 5.1. Выбор расширения для откомпилированной программы
Изменим свойства формы согласно табл. 5.1.
Таблица 5.1. Свойства формы хранителя экрана
Свойство Значение Пояснение BorderStyle bsNone Окно программы будет отображаться без границы и заголовка Align alClient Окно программы будет заполнять весь экран FormStyle fsStayOnTop Окно программы будет располагаться поверх всех остальных окон AlphaBlend True Разрешаем изменение степени прозрачности формы AlphaBlendValue 1 Изначально окно программы полностью непрозрачное