delphi网络时间校对


网络时间校对

procedure setLocalDateTime(Value: TDateTime);
var
 lSystemDateTime: TSystemTime;
begin
 DateTimeToSystemTime(Value, lSystemDateTime);
 SetLocalTime(lSystemDateTime);
end;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678