请教关于限制修改系统时间的问题(50分)

我想设计一个函数限制用户修改系统时间，但是用API只能捕捉到修改系统时间后的消息（message WM_TIMECHANGE），不能捕捉修改系统时间前的消息，请教各位大虾有没有解决方法呢？

请各位高手帮帮忙啦

看到时间有修改就到一台机器　上去取标准时间

谢谢boy2002cn, <br>但是我一设定时间的时候，就出错，而且总是差8小时<br><br>procedure TForm1.WMTimeChange(var Msg: TWMTimeChange);<br>var<br> &nbsp;SysTime:TSystemTime;<br> &nbsp;NowTime:TdateTime;<br> &nbsp;NewTime:TdateTime;<br> &nbsp;SysNewTime:TSystemTime;<br>begin<br> &nbsp;GetSystemTime(SysTime);<br> &nbsp;NowTime:=SystemTimeToDateTime(SysTime);<br> &nbsp;if (-1/8640&gt;CstmTime-Nowtime)or(1/8640&lt;CstmTime-Nowtime) then// 其中CstmTime是我设定的时间<br> &nbsp;begin<br> &nbsp; &nbsp;DateTimeToSystemTime(CstmTime,SysNewTime);<br> &nbsp; &nbsp;SetSystemTime(SysNewTime);<br> &nbsp;end;<br>end;<br>结果显示总是差异8小时阿

计时你取时间开始时间<br>取到时间<br>结束计时<br>当前时间＝取到时间＋（开始时间＋结束时间）/2

北京时间和标准时间是差8小时的，你加上8小时就行了

呵呵，搞定了，结贴了，谢谢