RSS订阅 | 匿名投稿
您的位置:网站首页 > 线程 > 正文

delphi 主线程等待一个 无阻塞函数 死循环子线程的安全退出

作者:admin 来源: 日期:2011/8/24 21:18:04 人气: 标签:

子线程:

procedure TreadThread.Execute;
begin
inherited;
FreeOnTerminate := True;
while not Terminated do begin
////dosomething;
end;
Sleep(100);
end;
end;

主线程:

var
H: array[0..0] of Thandle;
begin
try
H[0] := RCThread.handle;

// 安全退出子线程
RCThread.Terminate;
if MsgWaitForMultipleObjects(1, H, True, 1000, QS_ALLINPUT) = WAIT_OBJECT_0 then begin
//线程已经安全退出
end;
except
on e: Exception do
ShowMessage(e.Message);
end;
end;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: