Sleep会引起程序停滞,使程序看起来像死机
下面的延迟方法不会卡主线程
下面的延迟方法不会卡主线程
procedure Delay(msecs: DWORD); var iStart, iStop: DWORD; begin iStart := GetTickCount; repeat iStop := GetTickCount; Application.ProcessMessages; until (iStop - iStart) >= msecs; end;