Mega Code Archive

 

Categories / Delphi / System

 

Detect if the system time has been changed

Title: detect if the system time has been changed? { 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;