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函数

Delphi根据输入日期按年月周日输出日期段

Delphi findwindow的一些用法

Delphi 用idhttp获取utf-8编码的网页

Delphi获取进程pid

Delphi mscomm 比较完整的用法例子

Delphi xe6 通过javascript api调用百度地图

Delphi 使用 idhttp 获取 utf-8 编码的中文网页

Delphi rest客户端程序

Delphi编程时按回车键无效，无法换行解决办法

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

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