Мир Delphi
	Все самое интерресное что найдено в интернете о Delphi: компоненты, исходники программ, новые алгоритмы и решения.

Алгоритмы и решения / Время (2) / Изменение системного времени

function SetTime(DateTime:TDateTime): boolean;
  var st: TSystemTime;
  ZoneTime: TTimeZoneInformation;
begin
  GetTimeZoneInformation(ZoneTime);
  DateTime:=DateTime+ZoneTime.Bias/1440;
  with st do begin
    DecodeDate(DateTime,wYear,wMonth,wDay);
    DecodeTime(DateTime,wHour,wMinute,wSecond,wMilliseconds);
  end;
  Result:=SetSystemTime(st);
end;