...detect if the system time has been changed?

Author: Thomas Stutz

Category: System

{
  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;




 

printed from
www.swissdelphicenter.ch
developers knowledge base