Системное время

[Terran]

Подскажите пожалуста как программно установить системное время?

[BOBAH13]

Юзайте Api Windows. Кажется SetSystemTime...

[Rahim1993]

Если я правильно понял, то вот так.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := TimeToStr(Now)
end;

end.

[Ins]

SetLocalTime, только у вызывающего потока должны быть включена привилегия SE_SYSTEMTIME_NAME (только для уполномоченных юзеров, под ограниченной учеткой функция работать не будет).

[Air]

Код на лету составил.

var vsys:_SYSTEMTIME;
begin
vsys.wYear:=2008; // год
vsys.wMonth:=1; // месяц
vsys.wDay:=1; // день
vsys.wHour:=0; // Час,  возможно потребуется коррекция
vsys.wMinute:=0; // минута
vsys.wSecond:=0; // секунда
vsys.wMilliseconds:=0; миллисекунда 0..999
//vsys.wDayOfWeek:=DayOfWeek(Trunc(dtpDate.Date)); Это вроде как не надо
SetSystemTime( vsys );
end;

Будут вопросы спрашивайте.

[Terran]

Большое спасибо !!!