如何才能实现小于1毫秒的定时器？

Question

Delphi本身提供的TTimer，以及其他第三方控件厂商的控件均不能实现小于1毫秒的定时。
如何才能实现呢？

Answer 1

//指是我程序中的一段，希望有所帮助
     queryperformancefrequency(frequency);
     queryperformancecounter(Tagscounter);
     nowcounter:=Tagscounter;
     while (nowcounter-tagscounter) < {定义时间间隔} do
     begin
          Application.ProcessMessages;
          //do something 
          queryperformancecounter(nowcounter);
     end;   

Answer 2

谁说的！TTimer的Interval就是可以用到毫秒，如1毫秒就是1000000000.你试一下吧！

Answer 3

不好意思，看错了，是小于1毫秒！你可以用gettickcount含数试一下。

Answer 4

gettickcount，不过不一定可以。

Answer 5

GetTickCount: 返回的是毫秒级计时，它的精度也只有毫秒以上，我要的是小于1毫秒的定时，GetTickCount显然不能胜任。谢谢 boz（波）兄，用你的方法果然可以实现。