[inulik]

Нужна помощь, срочно, нужнa программка которая автоматически будет переводить системные часы windows на 5 мин назад

[Decoding]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

<b>procedure</b> SetTime<b>; var</b>   vsys: TSystemTime;   vYear, vMonth, vDay, vHour, vMin, vSec, vMm: Word; <b>begin</b>    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; <font color="RoyalBlue"><i>// Уменьшаем время на 5 минут</i></font>    vsys.wSecond := vSec;    vsys.wMilliseconds := vMm;    vsys.wDayOfWeek := DayOfWeek( Trunc( Date ) );    SetSystemTime( vsys );    <font color="RoyalBlue"><i>// или SetLocalTime( vsys ), в зависимости от того, что нужно</i></font> <b>end;</b>