How to use the following APIs

[007shahid]

Public Declare Function QueryPerformanceCounter Lib "kernel32" Alias "QueryPerformanceCounter" (lpPerformanceCount As LARGE_INTEGER) As Long

Public Declare Function QueryPerformanceFrequency Lib "kernel32" Alias "QueryPerformanceFrequency" (lpFrequency As LARGE_INTEGER) As Long

[Si_the_geek]

go to http://www.allapi.net, and either look at their examples, or download the API-Guide which had definitions and examples for most API calls ;)

[MerrionComputin]

Declarations (as per yopur post)

Private Type LARGE_INTEGER
HiInt As Long
LoInt As Long
End Type

Private Declare Function QueryPerformanceFrequency Lib "kernel32.dll" (lpFrequency As LARGE_INTEGER) As Long
Private Declare Function QueryPerformanceCounter Lib "kernel32.dll" (lpFrequency As LARGE_INTEGER) As Long

Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)



Use (as per ApiSystem.PerformanceCounter)

Public Property Get PerformanceCounter() As Currency

Dim lret As Long
Dim lCounter As LARGE_INTEGER

lret = QueryPerformanceCounter(lCounter)
If Err.LastDllError <> 0 Then
ReportError Err.LastDllError, "ApiSystem:PerformanceCounter", GetLastSystemError
Else
PerformanceCounter = LargeIntToCurrency(lCounter)
End If

End Property

Public Property Get PerformanceFrequency() As Currency

Dim lret As Long
Dim lFrequency As LARGE_INTEGER

lret = QueryPerformanceFrequency(lFrequency)
If Err.LastDllError <> 0 Then
ReportError Err.LastDllError, "ApiSystem:PerformanceFrequency", GetLastSystemError
Else
PerformanceFrequency = LargeIntToCurrency(lFrequency)
End If

End Property


Utility function to convert LARGE_INTEGER...

Private Function LargeIntToCurrency(liInput As LARGE_INTEGER) As Currency
'copy 8 bytes from the large integer to an ampty currency
CopyMemory LargeIntToCurrency, liInput, LenB(liInput)
'adjust it
LargeIntToCurrency = LargeIntToCurrency * 10000
End Function


HTH,
Duncan