Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Какой язык программирования вы используете ?
ASP
Delphi
C/C++
Basic
PHP
Pascal
Java
Другой
Результаты
Другие опросы
Всего голосов:
1968
Комментарии:
10
Наши партнеры
Статистика
Статьи и обзоры
Главная
Лучшие
Популярные
Список
Добавить
Изменение системного времени в Delphi
Как можно сменить системное время Windows из программы, написанной на Delphi?
Код
//*************************************************************************
// Функция (раздел Public) SetPCSystemTime
//изменяет системную
да
ту и время.
// Параметр(ы) : tDati Новая
да
та и время
// Возвращаемые значения:
//True - успешное завершение
//False - метод несработал
//*************************************************************************
function SetPCSystemTime(tDati: TDateTime): Boolean;
var
tSetDati: TDateTime;
vDatiBias: Variant;
tTZI: TTimeZoneInformation;
tST: TSystemTime;
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;
SetPCSystemTime := SetSystemTime(tST);
end;
Разместил:
admin
| | Прочитано: 35870 | |
Смотрите также связанные новости
12.12.2024 -
Кроссворд на Delphi
12.12.2024 -
Рождение, жизнь и гибель формы
12.12.2024 -
Воспроизводим Flash-файл в своем приложении
12.12.2024 -
Работа с потоками в Delphi
12.12.2024 -
SQL-запросы в Delphi
12.12.2024 -
BlobField как Bitmap
12.12.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