detect if the system time has been changed?

Author: Thomas Stutz

Homepage: http://www.swissdelphicenter.ch

{

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;