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

[hexenzhou]

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

[boz]

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

[BENJOE]

可以使用API

[Wally_wu]

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

[Wally_wu]

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

[WGYKING]

看看HUBDOG的葵花宝典

[wudi_1982]

gettickcount，不过不一定可以。

[hexenzhou]

GetTickCount: 返回的是毫秒级计时，它的精度也只有毫秒以上，我要的是小于1毫秒的定时，GetTickCount显然不能胜任。

谢谢 boz（波）兄，用你的方法果然可以实现。