本文整理自网络，侵删。
delphi 主线程等待一个 无阻塞函数 死循环子线程的安全退出子线程：
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;
相关阅读 >>
Delphi android实例-录音与回放(播放mp3)(xe8+小米2)
Delphi 按字符串长度对tstringlist的元素进行排序
Delphi twebbrowser：确定带有框架的页面何时完成
更多相关阅读请进入《Delphi》频道 >>
