有人用过SETSYSTEMTIME修改系统时间吗？

Question

用这个更改系统时间时候在
USES里面应该调用的那个接口（函数）呢？

Answer 1

用过DateUtils;发现不能用，大家不要回答这个哈

Answer 2

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;   

Answer 3

samcrm(镜花水月)只用WINDOWS系统还是报错liangpei2008(逍遥叹) 逍遥运行没有问题，但是更改时间的时候,会出现时区不对的问题(我想是这样的,我改为9:00),系统会出来17:00

Answer 4

Windows.PAS那个是OK的
注意时区问题即可或许SetLocalTime更适合~

Answer 5

辛苦了，分数可能有点不够，大家体谅一下最后用SETLOCALTIME 在USES 里面加了 SHELLAPI。我相信其他方法应该还可以，大家也都试用一下