SetLocalTime API函数设置本地时间（DateTimeToSystemTime函数，把TDateTime转换成TSystemTime）

procedure setLocalDateTime(Value: TDateTime);
var
  lSystemDateTime: TSystemTime;
begin
  DateTimeToSystemTime(Value, lSystemDateTime);
  SetLocalTime(lSystemDateTime);
end;
---------------------
作者：清风古韵
来源：CSDN
原文：https://blog.csdn.net/ttpage/article/details/9161739
版权声明：本文为博主原创文章，转载请附上博文链接！