达到这样的效果,应怎样编?

Question

获取当前系统时间后,加上0.5秒,再改变系统时间应怎样做?
我是意思是:每经过一秒后,系统都要比正常的时间快上0.5秒,两称后就快上一秒

Answer 1

加一个Timer控件，时间设为一秒
是Timer事件中写：
var
systemtime:Tsystemtime;
DateTime:TDateTime;
begin
  GetLocalTime(SystemTime);
  DateTime:=SystemTimeToDateTime(SystemTime);
  DateTime:=IncMilliSecond(DateTime,500);
  DateTimeToSystemTime(DateTime,systemtime);
  SetLocalTime(SystemTime);
end;

Answer 2

： linzhengqun(风) 的不错

Answer 3

IncMilliSecond()函数有什么含议,请解释下

Answer 4

TO   linzhengqun(风。全面提高回贴质量)
IncMilliSecond()是加时间的了,
有没有减时间的函数
这个贴已结帐了,你在我的另外贴上顶下,我给你加份