SetLocalTime API函数设置本地时间(DateTimeToSystemTime函数,把TDateTime转换成TSystemTime)

时间:2024-07-01 16:32:56

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