if (AThread <> nil) and (not AThread.terminated) then begin AThread.Suspend; AThread.Terminate; AThread.free; end; 或者这样: AThread.FreeonTerminate:=false; //关闭自动释放 AThread.Terminate; //终止线程 if AThread.WaitFor=WAIT_OBJECT_0 then //等待线程Terminate后释放 AThread.free else ....
begin
AThread.Suspend;
AThread.Terminate;
AThread.free;
end;
或者这样:
AThread.FreeonTerminate:=false; //关闭自动释放
AThread.Terminate; //终止线程
if AThread.WaitFor=WAIT_OBJECT_0 then //等待线程Terminate后释放
AThread.free
else ....