有没有办法让自己机子的时间停住(100分)

  • 主题发起人 主题发起人 fown
  • 开始时间 开始时间
F

fown

Unregistered / Unconfirmed
GUEST, unregistred user!
如题,或者说过一秒就时间倒退一秒,不让前进.<br>没分了,只有100分,高手答!!
 
这个应该很容易!自己查查资料,上网查查
 
给一段代码,我已经测试过了,给分吧!<br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var yy,mm,dd,h,s,m,ms:word;<br>&nbsp; &nbsp; sys_time:systemtime;<br>begin<br>&nbsp; //Edit1.Text:=formatdatetime('YYYY-MM-DD HH:nn:ss:zzz',now());<br>&nbsp; decodedate(now(),yy,mm,dd);<br>&nbsp; decodetime(now(),h,s,m,ms);<br>&nbsp; sys_time.wYear := yy;<br>&nbsp; sys_time.wMonth := mm;<br>&nbsp; sys_time.wDay := dd;<br>&nbsp; sys_time.wHour := h;<br>&nbsp; sys_time.wMinute := s;<br>&nbsp; sys_time.wSecond := m-1;<br>&nbsp; sys_time.wMilliseconds := ms;<br>&nbsp; setlocaltime(sys_time);<br>end;
 
接受答案了.
 

Similar threads

回复
0
查看
830
不得闲
回复
0
查看
1K
不得闲
D
回复
0
查看
928
DelphiTeacher的专栏
D
后退
顶部