MsgWaitForMultipleObjects函数用法

[LongHai]

你好欢迎你！
　我用写程序时想执行一个函数，但是这个函数有可能会使整个程序死悼，所以我想在执行这个函数这前创建一个线程，它主要是用MsgWaitForMultipleObjects函数等待主线程的消息，当主线程在运行完那个进程时就发一条消息给子线程，如果主线程一直没有发消息过来时等时间一到WINDOWS就触发一条WAITE＿TIMEOUT消息，这时我可以把提示报错，然后退出整个程序。但我不知怎么做，以下有一断程序就是那个原理但不知怎么不行，没有达到我要效果，不知哪位帮忙一下，谢谢！

Type
TProInfo=^ProInfo;{用来传递参数}
ProInfo=Record
Handle:THandle;
ThreadID:DWORD;
End;

Var
hThread:THandle;
ThreadID:DWORD;
PP:TProInfo;

{子线程，通过这个子线程来查看主线程的执行情况}
Procedure FrmProcess(Handle:Pointer);Stdcall;
Begin
MessageBox(TProInfo(Handle)^.Handle,'Waite_Start','Hello',MB_OK);
Case MsgWaitForMultipleObjects(1, TProInfo(Handle)^.Handle, False, 3000, QS_ALLEVENTS) of
WAIT_OBJECT_0:
Begin
MessageBox(TProInfo(Handle)^.Handle,'WAIT_OK','Hello',MB_OK);
Exit;
End;
WAIT_TIMEOUT:
MessageBox(TProInfo(Handle)^.Handle,'WAIT_TIMEOUT','Hello',MB_OK); //时间一到时弹出提示。
End;

End;

procedure TForm1.Button1Click(Sender: TObject);
begin
New(PP);
PP.Handle :=Application.Handle;
hthread:=CreateThread(nil,0,@FrmProcess,PP,0,ThreadID);
Send; 这个过程有可以使整个程序死悼
发送消息给 hthread;
end;

希望哪位知道怎么做，谢谢！(如果分数不够还可以加)

[TechnoFantasy]

我建议使用TThread类而不是自己创建的线程：

function TThread.WaitFor: LongWord;
var Msg: TMsg;
begin
if GetCurrentThreadID = MainThreadID then
while MsgWaitForMultipleObjects(1, FHandle, False,
INFINITE, QS_SENDMESSAGE) = WAIT_OBJECT_0 + 1
do PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE)
else
WaitForSingleObject(FHandle, INFINITE);
GetExitCodeThread(FHandle, Result);
end;
destructor TThread.Destroy;
begin
if not FFinished and not Suspended then
begin
Terminate;
WaitFor; // Be very careful
end;
if FHandle <> 0 then CloseHandle(FHandle);
inherited Destroy;
RemoveThread;
end;

[TechnoFantasy]

我建议使用TThread类而不是自己创建的线程：

function TThread.WaitFor: LongWord;
var Msg: TMsg;
begin
if GetCurrentThreadID = MainThreadID then
while MsgWaitForMultipleObjects(1, FHandle, False,
INFINITE, QS_SENDMESSAGE) = WAIT_OBJECT_0 + 1
do PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE)
else
WaitForSingleObject(FHandle, INFINITE);
GetExitCodeThread(FHandle, Result);
end;
destructor TThread.Destroy;
begin
if not FFinished and not Suspended then
begin
Terminate;
WaitFor; // Be very careful
end;
if FHandle <> 0 then CloseHandle(FHandle);
inherited Destroy;
RemoveThread;
end;

[g_feng]

即然send会使主进程死掉，不能把send放到线程中做吗？

[outer2000]

send会使主进程死掉,POST来看看如何；