怎样让应用程序等待5秒后继续执行？

Question

让应用程序等待5秒后，让他从等待的地方接着往下执行，请高手指点！

Answer 1

sleep(5000);的时候最好显示出来一些信息，告知请等待几秒钟，或者动态显示递减信息，不然有人会以为是死机的，呵呵

Answer 2

sleep(5000);／／最简单
／／最精确
var d:dword;
begin
   d:=gettickcount+5000;
   while d>gettickcount do
      Application.ProcessMessages ;

Answer 3

在你需要延时5秒时调用该函数即可procedure Delay;
var
  StartTick: DWORD;
begin
  StartTick := GetTickCount; //获取当前时间
  while (GetTickCount-StartTick)<5000 do  //五秒之内什么都不干
  begin
      Application.ProcessMessages;   //这语句可以防止死锁
  end;
end;