如何立即终止线程

[yyfly]

在线程的 Execute 方法中这样写：
while not Terminated do
begin
...
self.Terminate;
...
end;

但是用self.Terminate;不会立刻终止，我想在那个位置立刻终止线程
应该怎么做，并且要安全的终止.

[haoguozhong]

怎么用？能否说的具体些？

[qin0036]

如果使用 TThread 类，不可能立即中止线程。使用 Terminate 方法只是设置线程类里面的一个 Terminated 标志。要想快点结束线程，要在 Execute 函数里面多加对 Terminated 标志的判断。如果非要立即结束线程，就不能使用 TThread 类，改成使用 windows 的 api 直接操作线程，使用 CreateThread, ExitThread.

[ly_liuyang]

没错了
直接API才能解决问题

[wolf2005]

FreeOnTerminate := true;

[workers]

break;

[tsst]

使用windows API
Function TerminateThread(hThread:Thandle;dwExitCode:DWORD);
不过，这个函数会使代码立刻终止，而不管程序中有没有

[tsst]

如果是手动的非要结束的话，那就只能作用API 如exitthread

[xiaolei_418]

TerminateThread
或
ExitThread

[haoguozhong]

同意： qin0036(frank)

[ebensy]

你领悟能力真不太好.
在线程的 Execute 方法中这样写：
while not Terminated do
begin
...
self.Terminate;
if self.terminated then exit;
...
end;