How to implement a microsecond resolution Delay?

Previous  Top  Next

    
 

 

 

 

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;

 

 

©Drkb::01657

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php