Листинг 7.9.
Определение частоты аппаратного таймера
function hwTimerGetFreq(): Int64;
var
freq: Int64;
begin
if QueryPerformanceFrequency(freq) <> False then
hwTimerGetFreq := freq
else
hwTimerGetFreq := 0; //Ошибка
end;
Пусть нам известна разность между значения счетчика в начале и конце измерения. Перевести ее в секунды можно следующим образом: