delphi在主程序中延时

在主程序中延时,网上广为流传的是 GetTickCount();加 application.processmessages;

的空循环,这样去来的效果会是延时期间 CPU 耗用率为 100% ,而如果用 Sleep 会全世界都死掉.

只改了一句, CPU 耗用问题下来了![:D]

procedure Delay(msec:integer);

//延时函数，msec 为微秒(千分之1秒)

var

FirstTickCount : real;

begin

FirstTickCount := GetTickCount();

FirstTickCount := FirstTickCount + msec;

While FirstTickCount > GetTickCount() do

Application.HandleMessage; //关键在这里

end;

delay (5000); // 延时 5 秒