delphi监控系统时间

当系统时间改变时，如果你要做出反应，你可以处理WM_TimeChange windows 消息

以下是例子代码

原文：
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If you need to react when system date time has changed you can handle the WM_TimeChange Windows message.
Here's a sample code:
~~~~~~~~~~~~~~~~~~~~~~~~~
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!') ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~