delphi获取毫秒级时间戳代码

下面是用 Delphi 获取毫秒级时间戳的代码：

function GetMillisecondTimestamp: Int64;
var
  TimeStamp: TTimeStamp;
begin
  TimeStamp := DateTimeToTimeStamp(Now);
  Result := (TimeStamp.Time div MSecsPerSec) + (TimeStamp.Date * SecsPerDay * MSecsPerSec);
end;

这个函数会返回一个 Int64 类型的数字，表示当前时间与 1970 年 1 月 1 日 00:00:00 的毫秒数差。