我懒的用delphi4,我觉的delphi3挺好,但我想4应该
向下兼容啊。
原理我在下载包里已经带了。这里可以再说一下:
我本来想用读去系统时间的方法来实现,但发现系统时间也不精确。
后来我发现了两个函数QueryPerformanceFrequency和
QueryPerformanceCounter 。这是标准的API函数。实现原理是利用计
算机中的8253,8254可编程时间间隔定时器芯片实现的。在计算机内
部有三个独立的16位计数器。计数器可以以二进制或二—十进制(BDC)
计数。计数器每秒产生1193180次脉冲,每次脉冲使计数器的数字减一,
产生频率是可变的,用QueryPerformanceFrequency可以得到,一般情况
下都是1193180。QueryPerformanceCounter可以得到当前的计数器
值。所以只要你的计算机够快,理论上精度可以达到1/1193180秒。
具体实现方法就看代码吧。