Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007

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

Взято из https://forum.sources.ru