如何在一个线程内延时一段时间

[zzzl]

用Sleep可以吗？
sleep是线程安全的吗？

[smiler007]

UP一下

[aiirii]

一般是用sleep就可!
>>sleep是线程安全的吗？
就我知道, 是的

[terry6394]

延时?!用循环好一点吧.

//延时程序

procedure Delay(msecs: integer);
var
FirstTickCount: Longint;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages();
until ((GetTickCount - FirstTickCount) >= Longint(msecs));
end;
end.

[gxgyj]

http://community.csdn.net/Expert/topic/3164/3164589.xml?temp=.2775995
改进版

var
NumSec SmallInt;
StartTime: LongInt;
begin
StartTime := GetTickCount;//用Now的修改系统时间就没效了,这个就不会
repeat
Application.ProcessMessages;
Sleep(1);//能解决CPU100%的问题
until GetTickCount > StartTime + 毫秒;
end;

[BlogXman]

Sleep安全上应该没有问题，不过你看看你的CPU占用，应该是100%，有温度监视的CPU你会发现温度上升了有10度，如果是AMD会更可观！Sleep不会最好的，你的线程如果要休眠，最好是等待句柄结束那样的。其它的我也没有好办法！！！
^
|
---
顶

[getit911]

Sleep能导致CPU温度上升10度？AMD还比Intel温度高？
这是那来的高论，sleep会让出CPU给其他程序，Intel现在的CPU比AMD的CPU功率大很多，温度只高不低。

[fsybaby]

同意楼上，我刚刚变了一个多线程的程序，每个线程（都是循环）中都用了sleep函数（如果不用CPU占用率始终是100%）用了Sleep之后，CPU占用率降到0，说明sleep的时候，是不占CPU的

[何鲁青]

那么说sleep也是不错的啦？
自己试验一下看看！

[ddwwyyll2002]

挂起

[chw_csdn_chw]

最好不用sleep，可以用gxgyj(杰克.逊) 的方法
也可以试试
createEvent 创建一个事件对象，再用waitforsingleobject挂起进程，具体你在msdn中查查这两个函数就知道了

[pjisfeng]

在用Sleep那段时间里，线程是不能响应的。（我忘了不能响应那类消息了~~~~）

[晨池]

就用Sleep了，不过我只试过Sleep 100 呵呵，

[xiaocha]

同意chw_csdn_chw。
如果时间不长(1秒以内?)，而且简单的使用Sleep也可以。