Изменяем системное время

Для того, чтобы изменить системное время, достаточно одной простой процедуры...
Именно о ней я сегодня расскажу.


Итак, создаем новый проект в Delphi, создаем объект Button1 и событие для него OnClick.
Теперь копируем код, представленный ниже:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  SystemTime: TSystemTime; 
  NewTime, NewDate: string; 
begin 
  NewTime := '12:00:00'; 
  NewDate := '01.01.2006';  
  DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime); 
  SetLocalTime(SystemTime);
 PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); // * 
end;

 Сейчас проект можно компилировать и смотреть, что получилось.
Как видите, изменять системное время довольно просто и при желании программу можно улучшить...

На этом я с вами прощаюсь и желаю
Удачи!  SourceExpert.Blogspot.com