在DELPHI如何实现延时(20分)

9

998169

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #1

我想上一段程序在3分钟内实 循环,如何实现延时3分钟

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #2

sleep ？

 

M

mytree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #3

用timer控件啊。。。

 

K

kaideng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #4

timer控件interval:=1000*60*3

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #5

sleep
或者timer控件

 

2

203010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #6

procedure Delay(D: DWORD);
var Start: DWORD;
begin
Start := GetTickCount;
while GetTickCount - Start <= Ddo
;
end;
这是毫秒级的

 

A

abcgo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #7

procedure Delay(msecs:integer);
var FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;
要延时3分钟：delay(3*60*1000)

 

9

998169

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #8

请gettickcount什么意思？

 

C

chzhguoaa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #9

The GetTickCount function retrieves the number of milliseconds
that have elapsed since Windows was started.
我查了一下帮助，你自己看吧

 

9

998169

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #10

多人接受答案了。