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;