P
Pc 狂迷
Unregistered / Unconfirmed
GUEST, unregistred user!
把分给我吧!问题解决了!只改了一句, CPU 占用下来了
]
procedure delay(msec:integer);
//msec 为微秒(千分之1秒)
var
firsttick : real;
begin
firsttick := gettickcount;
repeat
// application.processmessages;
Application.HandleMessage; //只改了一下这里，
until ((gettickcount-firsttick) >= msec);
end;
delay (5000); // 延时 5 秒
]procedure delay(msec:integer);
//msec 为微秒(千分之1秒)
var
firsttick : real;
begin
firsttick := gettickcount;
repeat
// application.processmessages;
Application.HandleMessage; //只改了一下这里，
until ((gettickcount-firsttick) >= msec);
end;
delay (5000); // 延时 5 秒
