一个可以再WIN2000及以上操作系统使用的GetTickCount64

以后尽量用Delphi/C++双代码写.

GetTickCount返回值是整数,这样的话最多49天多就会复位重新从0开始.Vista以后提供了GetTickCount64这个函数,但是WindowsXP还是主流.在项目中为了处理这个,自己实现了一套办法.这个GetTickCount和真正的额GetTickCount相比会恒定的相差800毫秒左右.不过这个不影响使用.获取开机时间这800毫秒完全可以忽略.计算时间差的话就和GetTickCount是一样的了.

Delphi版XE下编译通过.

type
   _SYSTEM_INFORMATION_CLASS = (
     SystemBasicInformation,
     SystemProcessorInformation,
     SystemPerformanceInformation,
     SystemTimeOfDayInformation,
     SystemNotImplemented1,
     SystemProcessesAndThreadsInformation,
     SystemCallCounts,
     SystemConfigurationInformation,
     SystemProcessorTimes,
     SystemGlobalFlag,
     SystemNotImplemented2,
     SystemModuleInformation,
     SystemLockInformation,
     SystemNotImplemented3,
     SystemNotImplemented4,
     SystemNotImplemented5,
     SystemHandleInformation,
     SystemObjectInformation,
     SystemPagefileInformation,
     SystemInstructionEmulationCounts,
     SystemInvalidInfoClass1,
     SystemCacheInformation,
     SystemPoolTagInformation,
     SystemProcessorStatistics,
     SystemDpcInformation,
     SystemNotImplemented6,
     SystemLoadImage,
     SystemUnloadImage,
     SystemTimeAdjustment,
     SystemNotImplemented7,
     SystemNotImplemented8,
     SystemNotImplemented9,
     SystemCrashDumpInformation,
     SystemExceptionInformation,
     SystemCrashDumpStateInformation,
     SystemKernelDebuggerInformation,
     SystemContextSwitchInformation,
     SystemRegistryQuotaInformation,
     SystemLoadAndCallImage,
     SystemPrioritySeparation,
     SystemNotImplemented10,
     SystemNotImplemented11,
     SystemInvalidInfoClass2,
     SystemInvalidInfoClass3,
     SystemTimeZoneInformation,
     SystemLookasideInformation,
     SystemSetTimeSlipEvent,
     SystemCreateSession,
     SystemDeleteSession,
     SystemInvalidInfoClass4,
     SystemRangeStartInformation,
     SystemVerifierInformation,
     SystemAddVerifier,
     SystemSessionProcessesInformation);
   SYSTEM_INFORMATION_CLASS = _SYSTEM_INFORMATION_CLASS;
   TSystemInformationClass = SYSTEM_INFORMATION_CLASS;

   _SYSTEM_TIME_OF_DAY_INFORMATION = record // Information Class
     BootTime: LARGE_INTEGER;
     CurrentTime: LARGE_INTEGER;
     TimeZoneBias: LARGE_INTEGER;
     CurrentTimeZoneId: ULONG;
   end;
   SYSTEM_TIME_OF_DAY_INFORMATION = _SYSTEM_TIME_OF_DAY_INFORMATION;
   PSYSTEM_TIME_OF_DAY_INFORMATION = ^SYSTEM_TIME_OF_DAY_INFORMATION;

 function  NtQuerySystemInformation(
     SystemInformationClass : SYSTEM_INFORMATION_CLASS;
     SystemInformation : PVOID;
     SystemInformationLength : ULONG;
     ReturnLength : PULONG
   ): Integer; stdcall; external 'ntdll.dll';

 function  NtQuerySystemTime(
     var CurrentTime : LARGE_INTEGER
   ): Integer; stdcall; external 'ntdll.dll';

 function _GetTickCount64():Int64;
 var
   st : SYSTEM_TIME_OF_DAY_INFORMATION;
   r : ULONG;
   ct : LARGE_INTEGER;
 begin
   NtQuerySystemInformation(SystemTimeOfDayInformation,
                            @st,
                            SizeOf(SYSTEM_TIME_OF_DAY_INFORMATION),
                            @r);
   NtQuerySystemTime(ct);
   Result :=(ct.QuadPart-st.BootTime.QuadPart)div ;
 end;

VC版:

typedef ULONGLONG (WINAPI GetTickCount64Proc)(void);
 typedef ULONG (__stdcall * NTQUERYSYSTEMINFORMATION)(IN     /*SYSTEM_INFORMATION_CLASS*/int, IN OUT PVOID, INT    ULONG, OUT    PULONG OPTION);
 GetTickCount64Proc* VistaGetTickCount64 = (GetTickCount64Proc*)GetProcAddress(GetModuleHandle(_T("kernel32.dll")), "GetTickCount64");

 NTQUERYSYSTEMINFORMATION _NtQuerySystemInformation = (NTQUERYSYSTEMINFORMATION)GetProcAddress(GetModuleHandle(_T("ntdll.dll")), ("NtQuerySystemInformation"));

 INT64 _GetTickCount64()
 {
     typedef struct _SYSTEM_TIME_OF_DAY_INFORMATION
     {
         LARGE_INTEGER BootTime;
         LARGE_INTEGER CurrentTime;
         LARGE_INTEGER TimeZoneBias;
         ULONG CurrentTimeZoneId;
     } SYSTEM_TIME_OF_DAY_INFORMATION, *PSYSTEM_TIME_OF_DAY_INFORMATION;
     //如果系统存在VistaGetTickCount64函数则调用系统的
    if (VistaGetTickCount64)
         return VistaGetTickCount64();
     SYSTEM_TIME_OF_DAY_INFORMATION  st ={};
     ULONG                           oSize = ;
     if((NULL == _NtQuerySystemInformation)|| !=(_NtQuerySystemInformation(, &st, sizeof(st), &oSize))||
         (oSize!= sizeof(st)))
         return GetTickCount();
     return (st.CurrentTime.QuadPart - st.BootTime.QuadPart)/;
 }