procedure Delay(MSecs: Longint); //延时函数,MSecs单位为毫秒(千分之1秒)
var
FirstTickCount,Now:Longint;
begin
FirstTickCount := GetTickCount();
repeat
Application.ProcessMessages;
Now := GetTickCount();
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;
现在还是不能理解 当前时间 - 过去时间 就可以延时?