网络时间校对
procedure setLocalDateTime(Value: TDateTime);
var
lSystemDateTime: TSystemTime;
begin
DateTimeToSystemTime(Value, lSystemDateTime);
SetLocalTime(lSystemDateTime);
end;
procedure setLocalDateTime(Value: TDateTime);
var
lSystemDateTime: TSystemTime;
begin
DateTimeToSystemTime(Value, lSystemDateTime);
SetLocalTime(lSystemDateTime);
end;