CPUClockFrequency

CPUClockFrequency

const
  SHighResCounterError = 'High resolution counter error';
  
function CPUClockFrequency: Word64;
var
  Freq : int64;
begin
  Freq := 0;
  if not QueryPerformanceFrequency(Freq) then
    xraise (ETimerError2.Create(SHighResCounterError));
  if Freq = 0 then
    xraise (ETimerError2.Create(SHighResCounterError));
  Result := Word64(Freq);
end;

procedure InitHighResolutionCounter;
var
  Freq : Word64;
begin
  Freq := CPUClockFrequency;
  HighResolutionFrequency := Freq;
  HighResolutionMillisecondFactor := Freq div 1000;
  HighResolutionMicrosecondFactor := Freq div 1000000;
  if HighResolutionMicrosecondFactor = 0 then
    Xraise (ETimerError2.Create(SHighResCounterError));
  HighResolutionCounterInit := True;
end;