16.06.2006, 17:05
|
|
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Код:
procedure SetTime;
var
vsys: TSystemTime;
vYear, vMonth, vDay, vHour, vMin, vSec, vMm: Word;
begin
DecodeDate( Date, vYear, vMonth, vDay );
DecodeTime( Time, vHour, vMin, vSec, vMm );
vMm := 0;
vsys.wYear := vYear;
vsys.wMonth := vMonth;
vsys.wDay := vDay;
vsys.wHour := vHour;
vsys.wMinute := vMin-5; // Уменьшаем время на 5 минут
vsys.wSecond := vSec;
vsys.wMilliseconds := vMm;
vsys.wDayOfWeek := DayOfWeek( Trunc( Date ) );
SetSystemTime( vsys );
// или SetLocalTime( vsys ), в зависимости от того, что нужно
end;
|