当系统时间改变时,如果你要做出反应,你可以处理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; ~~~~~~~~~~~~~~~~~~~~~~~~~
|