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;  


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678