delphi中设置系统时间方法

本文整理自网络，侵删。

 
//delphi中设置系统时间方法
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;  
 

相关阅读 >>

Delphi 中tresourcestream流使用

Delphi研究之驱动开发篇（六）--利用section与用户模式程

Delphi 时间增加一小时的技巧

Delphi 数字分隔

Delphi 删除字符串重复的符号只保留一个

Delphi获取ie路径

Delphi qr /条形码扫描仪应用示例代码（使用zxing，tframestand）

Delphi gmt时间与tdatetime转换

Delphi 把窗体上的所有edit清空怎么做

Delphi 操作 pdf -- 使用 acrobat sdk 初探

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi中设置系统时间方法