delphi 13位时间戳

Delphi中的13位时间戳是指从1970年1月1日 00:00:00 UTC（协调世界时）起的毫秒数。在Delphi中，可以使用`GetTickCount64`函数来获取当前时间的13位时间戳。

`GetTickCount64`函数返回一个64位整数，表示从系统启动开始经过的毫秒数。为了将其转换为13位时间戳，我们需要加上1970年1月1日的毫秒数。

以下是一个示例代码，演示如何使用Delphi获取当前时间的13位时间戳：

uses
  SysUtils, DateUtils;

function CurrentDateTimeToTimestamp: Int64;
var
  timestamp: Int64;
begin
  timestamp := GetTickCount64 + DateTimeToUnix(EncodeDate(1970, 1, 1)) * 1000;

  Result := timestamp;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  timestamp: Int64;
begin
  timestamp := CurrentDateTimeToTimestamp;

  ShowMessage('当前时间的13位时间戳：' + IntToStr(timestamp));
end;

在上述代码中，`CurrentDateTimeToTimestamp`函数首先获取当前时间的毫秒数，然后加上1970年1月1日的毫秒数（通过`DateTimeToUnix`函数转换得到），从而得到13位时间戳。在按钮的`OnClick`事件中调用`CurrentDateTimeToTimestamp`函数，将获取到的13位时间戳显示在消息框中。

注意，Delphi中的13位时间戳通常是指Int64类型，如果需要将其转换为其他类型，例如字符串，可以使用`IntToStr`函数进行转换。