实时帧率问题

testerHooK

让我写代码吗？
  thisTime := GetTickCount;
  while (GetTickCount - thisTime) < 1 do
    ;
  ShowMessage(IntToStr(GetTickCount - thisTime);

呵呵，你修改原来的45毫秒说法了。
15毫秒完全可以用来实现 60FPS 的限速了。

要精确到1毫秒只能使用高性能计数器咯。

testerHooK

还是补充说明一下：
（以下说明都是针对XP系统的）
GetTickCount只能精确到 16毫秒
QueryPerformanceFrequence
QueryPerformanceCount可以精确到 1毫秒，
不过如果用在多线程或者多处理器环境里，无法保证得到正确的数据。
所以，建议使用
timeGetTime
这个函数默认的精度是 5毫秒，不过根据系统的不同，精度能够进一步提高：
比如，在Core 2系统里，timeGetTime的精度就是 1毫秒。