Group: it.comp.lang.delphi · Group Profile · Search for Queryperformancefrequency in it.comp.lang.delphi
Author: Alex
Date: Apr 19, 2007 04:33
... THRTimer.Create; { This reads the windows HR time and stores it for later use} Var //QW : TLargeInteger; QW : Int64; BEGIN Inherited Create; Exists := QueryPerformanceFrequency(QW); ClockRate := QW; //ClockRate := QW.QuadPart; END; Function THRTimer.StartTimer : Boolean; { This reads the windows HR time and stores it for later use.} Var QW...
|