如何终止线程？

Question

我使用了TidTcpServer中的tcpServerExecute(AThread: TIdPeerThread)事件
事件中有AThread.Connection.ReadLn，是以阻塞模式读取收到的数据，我如何用代码停止AThread.Connection.ReadLn的等待!

Answer 1

function TerminateThread(hThread: THandle; dwExitCode: DWORD): BOOL; stdcall;

Answer 2

vcl中Thread类在执行后会自动释放的。

Answer 3

if TerminateThread(Handle, 0) then
  begin
    WaitForSingleObject(Handle, INFINITE);
    CloseHandle(Handle);
  end;  

Answer 4

TerminateThread（AThread.handle,0）;