如何使线程暂停５０秒？？？

Question

那用延时啦
好象有个GetTickTime（)不知有没有记错

Answer 1

先把线程挂起；SUSPEND
SLEEP（5000）；不是线程类的方法，是W32API；
然后唤醒；RESUME

Answer 2

： outer2000(天外流星)    用ｓｌｅｅｐ（）　需要　ｕｓｅｓ　什么？？？

Answer 3

function sleep(delay:integer):integer;
var t1,t2,t3:longint;
begin
  result:=0;
  t1:=GetTickcount div 1000;
  t2:=GetTickcount div 1000;
  t3:=t2-t1;
  while(t3<50)do begin
      t2:=GetTickcount div 1000;
      t3:=t2-t1;
  end;
  result:=1;
end;

Answer 4

procedure Delay(msecs: integer);
 //延时,msecs为要延时的毫秒数
var
  FirstTickCount: Dword;
begin
  FirstTickCount:=GetTickCount;
  repeat
    {allowing access to other controls, etc.}
    Application.ProcessMessages;
  until ((GetTickCount-FirstTickCount) >= Dword(msecs));
end;
//绝对精确