DELPHI下读取与设置系统时钟

最新推荐文章于 2016-08-27 14:50:00 发布

落幕年代

最新推荐文章于 2016-08-27 14:50:00 发布

阅读量4.5k

点赞数

分类专栏： Delphi VCL组件开发与应用文章标签： Delphi

本文链接：https://blog.csdn.net/lailai186/article/details/9766903

版权

本文介绍了在DELPHI下如何通过调用Windows API来读取和设置系统时钟。通过示例代码展示了如何将系统时间转换为字符串，以及如何将字符串转换回系统时间，并使用SetLocalTime函数更新系统时间。

摘要由CSDN通过智能技术生成

在DELPHI下读取与设置系统时钟
很多朋友都想在自己的程序中显示系统时间
这在DELPHI中十分容易
利用DateToStr(Date)及TimeToStr(Time)函数即可实现。

二者的函数原型如下:
function DateToStr(Date:TDateTime):string;

function TimeToStr(Time:TDateTime):string;

其返回值均为String型。

在程序中我们可以这样使用:

Label1.Caption:=DateToStr(Date);

Lable2.Caption:=TimeToStr(Time);

二者分别调用了Delphi函数Date和Time读取系统日期和时间来实现的

但只能读系统时钟

而不能设置系统时钟。那么如何处理这一问题呢？这正是本文所要讨论的问题。

既然Delphi没有提供如此功能

但Delphi提供了调用WindowsAPI的接口。所以我们可以调用WindowsAPI函数来实现这一功能。具体方法如下:

procedure TForm1.Button1Click(Sender:TObject);

begin

Edit1.Text:='97/10/30 10:09:59'; ／／注意:控制面板内时间格式要为YY／MM／DD

end;

procedure TForm1.Button2Click(Sender:TObject);

var 　　systemtime:Tsystemtime;

DateTime:TD