请问在Delphi中的应用中启动了一个线程，如何将应用暂停0.5秒，让线程继续执行

[ppdj]

(用application.ProcessMessages已经证明不行)

[youhuiyun]

不明白，sleep？

[ppdj]

不行，它将线程一道停止运行了

[hthunter]

线程外部的sleep应该不影响线程的执行的巴？

[myy]

th:=TMyThread.Create(False);

if WAIT_TIMEOUT=WaitForSingleObject(th.Handle, 500) then //等待th线程执行500毫秒
//等待超时，th还在执行
else
//th在500毫秒内已经执行完毕

[qinmaofan]

同意 myy。

好像在主线程中 sleep 的话，子线程也会暂停。我很久以前做过试验，不过不大记得结果了。

[julong88]

线程内的sleep不会影响主线程
反来就不知道了

[Oracle10g]

这个行吗？（这个过程不能在线程内部使用）
procedure Delay(msec:integer);
//延时函数，msec 为微秒(千分之1秒)
var
FirstTickCount : real;
begin
FirstTickCount := GetTickCount();
FirstTickCount := FirstTickCount + msec;

While FirstTickCount > GetTickCount() do
Application.HandleMessage; //不占用 CPU 时间
end;

[ppdj]

感谢大家参与，综合myy和Oracle10g的方法，找到适合本人所要的解决方案。