精准定时器，有哪些（time,sleep)再有哪些

精准定时器，有哪些（time,sleep)还有哪些，
用time 控件，基本上不行。！

如果在线程中用sleep，无法保存sleep之前的过程的时间执行长度 ！

还有哪一些呢？

精准在100毫秒以内。
------解决方案--------------------
API函数QueryPerformanceFrequency和QueryPerformanceCounter 
------解决方案--------------------
timer可以控制在100毫秒之内。
------解决方案--------------------
delphiX 组件带有高速TImer控件，可以试试
http://www.micrel.cz/Dx/
------解决方案--------------------

// 延时函数，MSecs单位为毫秒(千分之1秒)

procedure Delay(MSecs: Longint);

var

  FirstTickCount, Now: Longint;

begin

  FirstTickCount := GetTickCount();

  repeat

    Application.ProcessMessages;

    Now := GetTickCount();

  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);

end;