Показать сообщение отдельно
  #4  
Старый 12.05.2008, 12:12
san-46 san-46 вне форума
Активный
 
Регистрация: 25.04.2008
Сообщения: 383
Репутация: 33
По умолчанию

Код:
uses Windows;

procedure SetSysDateTime;
var
  ST : _SYSTEMTIME;
begin
  GetSystemTime(ST); //вначале считываем текущее состояние
//устанавливаем значения каких надо полей
//  ST.wYear := ;     
//  ST.wMonth := ;
//  ST.wDay := ;
  ST.wHour := 8;
//  ST.wMinute := ;
//  ST.wSecond := ;
  SetSystemTime(ST); //установка системных даты и времени
end;
Про UTC можно узнать здесь:
http://ru.wikipedia.org/wiki/UTC
Например, в московском часовом поясе летнее время отличается от UTС на +4 часа. Установка ST.wHour := 8; даст системное время 12 ч.
Ответить с цитированием