太
太阳系
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Delay(msec:integer);
//延时函数，msec 为微秒(千分之1秒)
var
FirstTickCount : real;
begin
FirstTickCount := GetTickCount();
FirstTickCount := FirstTickCount + msec;
While FirstTickCount > GetTickCount() do
Application.HandleMessage; //关键在这里
end;
上面的延时函数中,如果用Application.ProcessMessage则会引起CPU占用100%。
但如果用Application.HandleMessage则鼠标要移动一下程序才往下执行。
有没有更好和延时程序？
//延时函数，msec 为微秒(千分之1秒)
var
FirstTickCount : real;
begin
FirstTickCount := GetTickCount();
FirstTickCount := FirstTickCount + msec;
While FirstTickCount > GetTickCount() do
Application.HandleMessage; //关键在这里
end;
上面的延时函数中,如果用Application.ProcessMessage则会引起CPU占用100%。
但如果用Application.HandleMessage则鼠标要移动一下程序才往下执行。
有没有更好和延时程序？