Книги автора: Delphi. Учимся на примерах
Книга: Delphi. Учимся на примерах
Шутка №10 — сброс системной даты/времени
Шутка №10 — сброс системной даты/времени
Последняя, десятая шутка будет устанавливать текущую дату 01.01.2000, и изменять текущее время на 00:00:01. Код этой шутки:
GetLocalTime(tm); //узнаем текущую дату и время
tm.wYear:= 2000; //устанавливаем год
tm.wMonth:= 01; //месяц
tm.wDay:= 01; //день
tm.wHour:= 0; //часы
tm.wMinute:= 0; //минуты
tm.wSecond := 1; //секунды
tm.wMilliseconds := 0; //мс
SetLocalTime(tm); //устанавливаем новую дату и время
Оглавление книги
Оглавление статьи/книги
- Шутка №1 — ограничение диапазона движения мыши
- Шутка №2 — отключение кнопок мыши
- Шутка №3 — отключение клавиатуры
- Шутка №4 — очистка буфера обмена
- Шутка №5 — назначение фона для Рабочего стола
- Шутка №6 — выбор фона случайным образом
- Шутка №7 — выключение монитора
- Шутка №8 — сообщение об ошибке, содержащее "мусор"
- Шутка №9 — открытие браузера Internet Explorer
- Шутка №10 — сброс системной даты/времени
Похожие страницы
- Шутка №7 — выключение монитора
- Шутка №1 — ограничение диапазона движения мыши
- Шутка №9 — открытие браузера Internet Explorer
- Шутка №10 — сброс системной даты
- Шутка №8 — сообщение об ошибке, содержащее "мусор"
- Как сбросить форматирование текста в Microsoft Word?
- B10. Функции даты и времени: ‹time.h›
- Настройка даты и времени
- 7.20. Извлечение даты и времени из строки
- Контекстные переменные даты и времени
- Автоматический ввод текущей даты и времени
- Преобразование типов даты в CHAR(n) и VARCHAR(n)