Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира


Как установить системную дату и время программно

Следующие несколько строк кода позволяют установить системную дату и время без использования панели управления. Дата и время устанавливаются двумя раздельными компонентами TDateTimePicker. Дата и время декодируются и передаются в API функцию.
Из значения часа вычитается 2 для установки правильного времени.


procedure TfmTime.btnTimeClick(Sender: TObject);
var vsys : _SYSTEMTIME;
    vYear, vMonth, vDay, vHour, vMin, vSec, vMm : Word;
begin
   DecodeDate( Trunc(dtpDate.Date), vYear, vMonth, vDay );
   DecodeTime( dtpTime.Time, vHour, vMin, vSec, vMm );
   vMm := 0;
   vsys.wYear := vYear;
   vsys.wMonth := vMonth;
   vsys.wDay := vDay;
   vsys.wHour := ( vHour - 2 );
   vsys.wMinute := vMin;
   vsys.wSecond := vSec;
   vsys.wMilliseconds := vMm;
   vsys.wDayOfWeek := DayOfWeek( Trunc(dtpDate.Date) );
   SetSystemTime( vsys );
end;

 

 


Основные разделы сайта


 

Реклама