您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

Delphi中设置系统时间方法

时间:2011/9/3 15:35:36 点击:

  核心提示:var   systemtime:Tsystemtime;   DateTime:TDateTime; begin   DateTime:=StrToDateTime(Edit1.text); //获...
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; 

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号