delphi 取 UTC/TFileTime 时间

本文整理自网络，侵删。

 // 取 UTC/TFileTime 时间function GetUTCTickCount: Int64;var  UtcFt: _FILETIME;begin  // 精确到 100ns = 千万分之一秒  //   返回与 GetTickCount 一样的毫秒  GetSystemTimeAsFileTime(UtcFt);  Result := (Int64(UtcFt) div 10000); // 1,000,000,0end;
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 idhttp组件+idhttpserver组件实现文件下载服务

Delphi2010中字符串汇编需要注意的一点，以及支持2010的aes加密库

在Delphi中显示gif动画

Delphi 获取两字符串之间的内容

Delphi application.messagebox 详解

Delphi 写的经常用到的加解密函数

Delphi 判断两个时间差是否在一个指定范围内 -withinpastyears、withinpastmonths、withinpastweeks、withinpastdays

Delphi xe5 android 调用 google zxing

Delphi 调用golang dll

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