Code:

// Wait 0.2ms

 

procedure PerformanceDelay;

var

hrRes, hrT1, hrT2, dif: Int64;

begin

if QueryPerformanceFrequency(hrRes) then

begin

   QueryPerformanceCounter(hrT1);

   repeat

     QueryPerformanceCounter(hrT2);

     dif := (hrT2 - hrT1) * 10000000 div hrRes;

   until dif > 2;

end;

end;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить