请问在delphi中设置系统时间怎么来实现？

gy123_79 2002-04-23 06:04:49

delphi中的结构该如何声明，系统时间如何设置在线等待。

...全文

27 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

firetoucher 2002-04-23

打赏
举报

setlocaltime

hongyou 2002-04-23

打赏
举报

不错不错！

shangshang 2002-04-23

打赏
举报

呵呵我也抄过这个代码。

softwing 2002-04-23

打赏
举报

哇考，注释都写得这么详细了，就不用再补充了吧。

newwen 2002-04-23

打赏
举报

var 　　
systemtime:Tsystemtime;
　　DateTime:TDateTime;
begin
　　DateTime:=StrToDateTime(Edit1.text); //获得时间（TDateTime格式）
　　DateTimeToSystemTime(DateTime,systemtime); //把Delphi的TDateTime格式转化为API的TSystemTime格式
　　SetLocalTime(SystemTime); //设置系统时间
　　GetLocalTime(SystemTime); //读取系统时间
　　DateTime:=SystemTimeToDateTime(SystemTime); //把API的TSystemTime格式转化为 Delphi的TDateTime格式
　　Edit2.Text:=DateTimeToStr(DateTime); //显示当前系统的时间
end;

//TSystemTime的格式
PSystemTime = ^TSystemTime;
TSystemTime = record
　wYear: Word;
　wMonth: Word;
　wDayOfWeek: Word; 　wDay: Word;
　wHour: Word;
　wMinute: Word;
　wSecond: Word;
　wMilliseconds: Word;
end;