Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Легко ли найти нужную информацию на сайте?
Очень просто
Нахожу почти сразу
Приходится тщательно покопаться
Почти невозможно
Не нашел (лень разбираться)
Результаты
Другие опросы
Всего голосов:
590
Комментарии:
0
Наши партнеры
Статистика
Статьи и обзоры
Главная
Лучшие
Популярные
Список
Добавить
Изменение системного времени в Delphi
Как можно сменить системное время Windows из программы, написанной на Delphi?
Код
//*************************************************************************
// Функция (раздел Public) SetPC
System
Time
//изменяет системную дату и время.
// Параметр(ы) : tDati Новая дата и время
// Возвращаемые значения:
//True - успешное завершение
//False - метод несработал
//*************************************************************************
function SetPC
System
Time(tDati: TDateTime): Boolean;
var
tSetDati: TDateTime;
vDatiBias: Variant;
tTZI: TTimeZoneInformation;
tST: T
System
Time;
begin
GetTimeZoneInformation(tTZI);
vDatiBias := tTZI.Bias / 1440;
tSetDati := tDati + vDatiBias;
with tST do
begin
wYear := StrToInt(FormatDateTime('yyyy', tSetDati));
wMonth := StrToInt(FormatDateTime('mm', tSetDati));
wDay := StrToInt(FormatDateTime('dd', tSetDati));
wHour := StrToInt(FormatDateTime('hh', tSetDati));
wMinute := StrToInt(FormatDateTime('nn', tSetDati));
wSecond := StrToInt(FormatDateTime('ss', tSetDati));
wMilliseconds := 0;
end;
SetPC
System
Time := Set
System
Time(tST);
end;
Разместил:
admin
| | Прочитано: 31925 | |
Смотрите также связанные новости
27.04.2024 -
Кроссворд на Delphi
27.04.2024 -
Рождение, жизнь и гибель формы
27.04.2024 -
Воспроизводим Flash-файл в своем приложении
27.04.2024 -
Работа с потоками в Delphi
27.04.2024 -
SQL-запросы в Delphi
27.04.2024 -
BlobField как Bitmap
27.04.2024 -
Запись и чтение чисел в BLOB-поле
Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста
войдите или зарегистрируйтесь
.
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
Статьи
и
обзоры
Delphi
и
TurboPascal
Изменение
системного
времени
в
Delphi
Как
можно
сменить
системное
время
Windows
из
программы
написанной
на
Delphi
Код
//*************************************************************************
Функция
раздел
Public
SetPCSystemTime
//изменяет
системную
дату
Параметр
tDati
Новая
дата
Возвращаемые
значения
//True
успешное
завершение
//False
метод
несработал
function
TDateTime
Boolean
tSetDati
vDatiBias
Variant
tTZI
TTimeZoneInformation
TSystemTime
begin
GetTimeZoneInformation
Bias
1440
with
wYear