Извлечение из компьютера системного времени и даты Владимир Коробицын Назначение клавиш. Экранная заставка для Windows
    На стартовой форме разместите два уже знакомых вам компонента: поле вывода текста Label1 и таймер Timer1. В окне свойств объектов Object Inspector для компонента Timer1 его свойству Interval установите значение 1000 миллисекунд. Функцию обработки Timer1Timer заполните инструкцией:
    Label1->Caption = Now(); //вывод даты и времени
    Функция Now() выдает значение системной даты и времени, в буквальном переводе английское Now соответствует русскому слову "теперь". Запустите приложение. На его форме в поле вывода текста через одну секунду отобразятся текущая дата и время. Благодаря таймеру каждую следующую секунду эта информация будет обновляться. Вы заметили, что при запуске приложения первую секунду в поле вывода текста отображается надпись "Label1".Чтобы избежать это, в окне свойств объектов для компонента Label1 его свойству Caption придайте значение пустого множества. Если хотите, чтобы дата и время появились после запуска приложения быстрее можно для компонента Timer1 уменьшить значение его свойства Interval, например, до 10 миллисекунд.
    Для получения системной даты или времени отдельно можно воспользоваться функциями преобразования DateToStr(dt) и TimeToStr(dt). Функция DateToStr(dt) выдает строку символов, отображающую дату в формате dd.mm.yyyy (число, месяц, год). Функция TimeToStr(dt) выдает строку символов, отображающую дату в формате hh:mm:ss (часы, минуты, секунды). Для исследования этих функций откройте новый проект приложения с компонентами Label1, Label2 и Timer1. Инструкции программного кода в функции обработки Timer1Timer будут выглядеть так:
    Label1->Caption = DateToStr(Now()); //вывод даты
    Label2->Caption = TimeToStr(Now()); //вывод времени
    Такого же результата можно добиться следующими инструкциями:
    Label1->Caption = Date(); //показать дату
    Label2->Caption = Time(); //показать время
    Функция DayOfWeek() (День недели) способна выдать номер дня недели, соответствующий дате, которая указывается в скобках как параметр этой функции. Причем 1 - воскресенье, 2 - понедельник и так далее. Проверьте работу функции DayOfWeek(). Добавьте на форму компонент Label3 и напишите инструкцию:
    Label3->Caption = DayOfWeek(Now()); //вывод на экран номера дня недели
    Для пользователя информация о дне недели будет восприниматься проще, если на экране отобразится не "4", а "Среда". Тогда программный код может выглядеть, например, так:
    // вывод на экран названия дня недели
    if (DayOfWeek(Now()) == 1) Label3->Caption = "Воскресенье";
    if (DayOfWeek(Now()) == 2) Label3->Caption = "Понедельник";
    if (DayOfWeek(Now()) == 3) Label3->Caption = "Вторник";
    if (DayOfWeek(Now()) == 4) Label3->Caption = "Среда";
    if (DayOfWeek(Now()) == 5) Label3->Caption = "Четверг";
    if (DayOfWeek(Now()) == 6) Label3->Caption = "Пятница";
    if (DayOfWeek(Now()) == 7) Label3->Caption = "Суббота";
    Самостоятельно поэкспериментируйте с другими функциями манипулирования датой и временем. Для этого обратитесь к соответствующей таблице расположенной в конце данного пособия.
    А теперь посмотрим, как можно построить управление приложением с клавиатуры. Откройте новый проект. В функцию обработки FormKeyDown (Клавиша внизу) запишите программный код:
    //если нажать на клавишу то генерируется звук
    //частотой 440 Гц (нота Ля) длительностью 0,2 сек
    if (Key == 'A') Beep(440,200);
    //если нажать на клавишу то изменится цвет формы на красный
    if (Key == ' ') Form1->Color = clRed;
    if (Key == 27) Close(); //если нажать на клавишу то выход
    Запустите приложение на исполнение. ............