Question

delphi 多线程中怎么延时?

请不要用sleep.

Answer 1

那就自己写一个延时过程
procedure Delay(MSecs: Longint);//千分之一秒
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount();
repeat
Application.ProcessMessages;
Now := GetTickCount();
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;
调用Delay(5000)就是延时5秒，这样不会像sleep那样造成程序睡觉

Answer 2

可以用WaitForSingleObject，设置一个Timeout，等到超时再继续处理