编写精确计时器

Question

各位高手：
     大家好，小弟想请教一下如何利用delphi写出一个精确计时器？小弟原来利用timer每秒刷新一次，但发现运行过程中有误差，请各位指教。

Answer 1

使用gettickcount()函数呀，精确到微秒啦

Answer 2

1.使用多媒體記時器函數:
function timesetevent(
   udelay,uresolution:uimt;
   lpfunction:tfntimecallback;
   dwuser:dword;
   uflags:unit
):mmresult;stdcall2.使用高性能頻率計數法.

Answer 3

不好意思,應該是
使用多媒體記時器函數:
function timesetevent(
   udelay,uresolution:uint;
   lpfunction:tfntimecallback;
   dwuser:dword;
   uflags:uint
):mmresult;stdcall