WMTimeChange

[Gigatech]

Hi, I use the following code to detect if the system date/time changes:

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

**********************************************************

It works fine, but sometimes when the computer remains "on" during the night, in some moment, the event fires. What other reasons would fire this event beside the users change the system date/time?

thanks

 

[sggaunt]

Coul be Windows automatic time update (this is on by default in XP)
I dont know if this will trigger the event but you can look in the windows logs Admin tools/event viewer (XP/2000) to see if a time update has happend.


Steve [The sane]: Delphi a feersum engin indeed.

 

[Gigatech]

I thought that, but I unchecked this option

 

[sggaunt]

You may already be doing this but can you get it to log the events and the time it happend?

Steve [The sane]: Delphi a feersum engin indeed.