不要用sleep.自己做延时函数吧。一个简单例子,和coldljy(凤舞N天)的原理一致。procedure Delay(DlTime:Longint);
var
Start:LongInt;
begin
Start:= GetTickCount;
repeat
Application.ProcessMessage
until GetTickCount-Start>=DlTime;
end;
var
Start:LongInt;
begin
Start:= GetTickCount;
repeat
Application.ProcessMessage
until GetTickCount-Start>=DlTime;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货