Как определить, изменилось ли системное время?

Следующий пример демонстрирует обработку сообщения WM_TIMECHANGE. Приложение, которое изменяет системное время, посылает сообщение WM_TIMECHANGE всем окнам верхнего уровня.

type 
TForm1 = class(TForm)   
private   
{ Private declarations }   
  procedure WMTIMECHANGE(var Message: TWMTIMECHANGE); message WM_TIMECHANGE;   
public   
{ Public declarations }   
end;   



var 
Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.WMTIMECHANGE(var Message: TWMTIMECHANGE); 
begin 
  Form1.Caption := 'Time Changed'; 
end;

Взято с Исходников.ru



Содержание раздела

---

---