Форум программистов > Delphi: WinAPI и системное программирование > How to implement a microsecond resolution Delay?
Автор: Poseidon 19.5.2005, 03:32
Код
// 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;