Delphi 延迟函数

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