delphi中有没有函数可以取到计算机时钟，要求分辨率在毫秒级

GetTickCount得到Windows启动到现在的时间。
可以用DecodeTime（now,...）；
DecodeTime最后一个参数是得到的毫秒。

解决方案 »

  1.   

    gettickcount，自WINDOWS启动后的时间，可能有进位的问题
      

  2.   

    getsystemtime and getlocaltime不可以吗？
      

  3.   

    function FormatDateTime(const Format: string; DateTime: TDateTime): string;
      

  4.   

    多谢各位大虾帮助，但也许是我没说清楚，我需要的是当前时间，而不是一个时间段长度，
    另外，我试过了，GetTickCount肯定是不行，最小分辨率也在2-3毫秒，不知道是不是还有其他因素的影响。
    QueryPerformanceFrequency，QueryPerformanceCounter似乎也不太好用，计算过于复杂，速度可能达不到（我的时间很宝贵）。
    DecodeTime，getsystemtime ，FormatDateTime等函数，出现的就是我说的结果：分辨率在55毫秒左右。
      

  5.   

    非常感谢大家的帮助，但我自己发现了一个更好的方法：使用timeGetTime,真正的毫秒级别。
      

  6.   

    你说的能细一些吗?什么 timeGetTime? Delphi 中跟本没有这个函数呀！