sleep函数的用法，大家帮我看看

Question

sleep(5000);
这时间一长就好像死机了是的，在delphi中有没有好的方法让sleep交出控制权。
使用sleep的时候，程序还能响应其它的操作。

Answer 1

procedure Delay(ms : longint);
var
   TheTime : LongInt;
begin
   TheTime := GetTickCount + ms;
   while GetTickCount < TheTime do
      Application.ProcessMessages;
end;

Answer 2

procedure Delay(ms : longint);
var
i : integer
begin
for i=0 to ms do
begin
Application.ProcessMessages;
Sleep(1);
end;
end;

Answer 3

如果在服务器上运行，就要考虑GetTickCount的溢出问题！！