Delay 延时函数

procedure Delay(MSecs: Longint); //延时函数，MSecs单位为毫秒(千分之1秒) 函数 var io FirstTickCount,Now:Longint; 时间 begin FirstTickCount := GetTickCount(); repeat Application.ProcessMessages; Now := GetTickCount(); un

>>阅读原文<<