sleep 延时 假死 问题！

Question

可有更好的函数或方法 延时呀！
假死很不好呀

Answer 1

循环：
sleep(10);
application.processmessages;直到够时间

Answer 2

//让循环延时一段时间的函数
procedure Delay(msecs:integer);  
var 
  Tick: DWord;
  Event: THandle;
begin 
  Event := CreateEvent(nil, False, False, nil);
  try
  Tick := GetTickCount + DWord(msecs);
  while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do
  begin Application.ProcessMessages; msecs := Tick - GetTickcount; end;
  finally CloseHandle(Event); end;
end;
也是网上下的，经过本人测试，非常好用。

Answer 3

不在主线程中sleep就可以了，或者用楼上两位的方法，不过要消耗cpu

Answer 4

再用个线程给个提示，告知用户 程序还在运行！
在主线程中sleep的话就应该不是假死了吧...停止一切活动，装死1分钟！哈哈

Answer 5

循环：
sleep(10);
application.processmessages;直到够时间

Answer 6

2楼的朋友，我不知道你明白你所贴的代码的含义没？
CreateEvent函数一般在多线程中使用，你在这里创建事件有啥意思？个人认为你的代码十分多余，我贴一个比较短小的过程实现楼主的需求：procedure pause(t:cardinal);
begin
  t:=t+GetTickCount;
  while t>GetTickCount do  Application.ProcessMessages;
end;

Answer 7

不行不行 CPU 到50了！
可有其他方法？

Answer 8

不行，也到底哪一种方法不行啊没有sleep(10)的循环，cpu是会高的

Answer 9

function SP(MaxWaitTime: Cardinal): Boolean;
var   I:Integer;WaitedTime:Cardinal;
begin
          WaitedTime:=0;
          while      (WaitedTime<MaxWaitTime)   do
          begin
                  SleepEx(100,False);
                  Inc(WaitedTime,100);
                  Application.ProcessMessages ;
          end
end;调用:SP(3000);

Answer 10

我没有测试你的函数，也不知道你的函数到底有多么好用。但是我要告诉你，这贴上去的这个函数，绝对是可以满足楼主的要求的，并且CPU占用的资源非常之小，基本上感觉不到。（虽然这个函数不是我写的。我也是抄的。）

Answer 11

这个延时占的CPU是很少,但延时中,点右上角关闭程序时关不了!

Answer 12

2楼的朋友，我没说你的代码不能用，我只是说有些冗余。这个冗余就相当于是你有定义了100个变量而不去用一样，虽然功能实现，但完全多余。如果楼主认为cpu占用还高，可再做如下调整：
procedure pause(t:cardinal);
begin
  t:=t+GetTickCount;
  while t>GetTickCount do begin Sleep(100);Application.ProcessMessages;end;
end关于楼husion01所说的“点右上角关闭程序时关不了”的问题，其实加一行代码即可避免这个问题。但因为此问题不是楼主提出来的，而且楼主只给了20分，所以暂时就不关注了。

Answer 13

2楼的朋友，你的关键代码是这句Application.ProcessMessages;如果去掉这句，你的代码就不能用了。而你多定义变量和使用CreateEvent(nil, False, False, nil)是多余。