{
There is a WM_TIMECHANGE message which is sent when Systemtime
(date/time) is changed:
Add an event handler for the WM_TIMECHANGE message.
Wenn die Systemzeit geändert wird, wird eine WM_TIMECHANGE Nachricht
an alle Top-Level-Windows gesendet. Diese Nachricht
kann man mit einem WM_TIMECHANGE handler abfangen.
}
type
TForm1 = class(TForm)
private
procedure WMTimeChange(var Msg: TMessage); message WM_TIMECHANGE;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMTimeChange(var Msg: TMessage);
begin
inherited;
ShowMessage('Date/Time has changed!'); // Datum/Zeit wurde geändert!
end;