5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
foodztf 2010-05-31
- 打赏
- 举报
[Quote=引用 6 楼 chenzhechenge 的回复:]
在你需要延时5秒时调用该函数即可
procedure Delay;
var
StartTick: DWORD;
begin
StartTick := GetTickCount; //获取当前时间
while (GetTickCount-StartTick) <5000 do //五秒之内什么都不干
b……
[/Quote]
Delay(5000)
在你需要延时5秒时调用该函数即可
procedure Delay;
var
StartTick: DWORD;
begin
StartTick := GetTickCount; //获取当前时间
while (GetTickCount-StartTick) <5000 do //五秒之内什么都不干
b……
[/Quote]
Delay(5000)
jacobran 2005-04-15
- 打赏
- 举报
sleep(5000);
chenzhechenge 2005-04-15
- 打赏
- 举报
在你需要延时5秒时调用该函数即可
procedure Delay;
var
StartTick: DWORD;
begin
StartTick := GetTickCount; //获取当前时间
while (GetTickCount-StartTick)<5000 do //五秒之内什么都不干
begin
Application.ProcessMessages; //这语句可以防止死锁
end;
end;
procedure Delay;
var
StartTick: DWORD;
begin
StartTick := GetTickCount; //获取当前时间
while (GetTickCount-StartTick)<5000 do //五秒之内什么都不干
begin
Application.ProcessMessages; //这语句可以防止死锁
end;
end;
zhuangbx220 2005-04-15
- 打赏
- 举报
sleep(5000);／／最简单
／／最精确
var d:dword;
begin
d:=gettickcount+5000;
while d>gettickcount do
Application.ProcessMessages ;
／／最精确
var d:dword;
begin
d:=gettickcount+5000;
while d>gettickcount do
Application.ProcessMessages ;
tdtjitxypm 2005-04-15
- 打赏
- 举报
sleep(5000);
zhang3000 2005-04-15
- 打赏
- 举报
多谢两位指点！
xjjrocker 2005-04-15
- 打赏
- 举报
sleep(5000);的时候最好显示出来一些信息，告知请等待几秒钟，或者动态显示递减信息，不然有人会以为是死机的，呵呵
ybhzf 2005-04-15
- 打赏
- 举报
sleep(5000);
