Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
Attribute VB_Name = "Timer"Option Explicit
Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As LongPrivate Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long
Function HighResTimer() As Double
Static secFreq As Currency, secStart As Currency If (secFreq = 0) Then QueryPerformanceFrequency secFreq QueryPerformanceCounter secStart If (secFreq <> 0) Then HighResTimer = secStart / secFreq ' Else Timer = 0 if no high resolution timerEnd Function
|
