delphi 取 UTC/TFileTime 时间

本文整理自网络，侵删。

 
// 取 UTC/TFileTime 时间
function GetUTCTickCount: Int64;
var
  UtcFt: _FILETIME;
begin
  // 精确到 100ns = 千万分之一秒
  //   返回与 GetTickCount 一样的毫秒
  GetSystemTimeAsFileTime(UtcFt);
  Result := (Int64(UtcFt) div 10000); // 1,000,000,0
end;

function GetUTCTickCountEh(Seed: Pointer): UInt64;
var
  UtcFt: _FILETIME;
begin
  // 精确到千万分之一秒，与 Seed 运算产生唯一值
  GetSystemTimeAsFileTime(UtcFt);
  if (Seed <> nil) then
    {$IFDEF WIN_64}
    UInt64(UtcFt) := UInt64(UtcFt) xor UInt64(Seed);
    {$ELSE}
    UtcFt.dwLowDateTime := UtcFt.dwLowDateTime xor LongWord(Seed);
    {$ENDIF}
  Result := UInt64(UtcFt);
end;
 

相关阅读 >>

Delphi windows 编程[11] - wm_size 消息

Delphi xe5 手机应用开发经验技巧

[译]rad studio 10.4 新变化：面向控件的 vcl 样式管理

Delphi 延迟时间函数

Delphi 给gmail发送邮件

Delphi kbmmemtable的简单应用（增删改查示例）

Delphi idhttp读取网页重定向

Delphi getfileversion 获取文件版本

Delphi 下载者源代码

Delphixe firemonkey 如何画图

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 取 UTC/TFileTime 时间