...ein mikrosekundengenaues Delay implementieren?

Autor: Lemy
Homepage: http://www.swissdelphicenter.com

Kategorie: System

// 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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base