Страница 1 из 1
Системное время
Добавлено: 03 мар 2006, 23:55
maelz
Как программно изменить время?
Добавлено: 04 мар 2006, 01:21
Naeel Maqsudov
А как аппаратно?
см
http://msdn.microsoft.com/library/defau ... ctions.asp
Эти функции скорее всего определены в файле windows.pas так что можно сразу пользоваться. В противном случае вызывать из kernel32.dll
Добавлено: 04 мар 2006, 09:52
maelz
Так, со ссылкой всё понятно , что ничего не понятно. Можете дать мне конкретный пример?
Добавлено: 04 мар 2006, 10:29
Duncon
Код: Выделить всё
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;