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

Материал из DRKB

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

Следующий пример демонстрирует обработку сообщения 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;


Source: Взято из http://forum.sources.ru
ID: 01645