Delphi中的线程类--之（5，大结局）

H[1] := SyncEvent;

repeat

{ This prevents a potential deadlock if the background thread

does a SendMessage to the foreground thread }

if WaitResult = WAIT_OBJECT_0 2 then

PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE);

WaitResult := MsgWaitForMultipleObjects(2, H, False, 1000, QS_SENDMESSAGE);

CheckThreadError(WaitResult <> WAIT_FAILED);

if WaitResult = WAIT_OBJECT_0 1 then

CheckSynchronize;

until WaitResult = WAIT_OBJECT_0;

end else WaitForSingleObject(H[0], INFINITE);

CheckThreadError(GetExitCodeThread(H[0], Result));

end;

如果不是在主线程中执行WaitFor的话，很简单，只要调用WaitForSingleObject等待此线程的Handle为Signaled状态即可。

如果是在主线程中执行WaitFor则比较麻烦。首先要在Handle数组中增加一个SyncEvent，然后循环等待，直到线程结束（即

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!