if Terminated then Exit;语句，并使你的线程支持通常的终止-终止概念。 - Cosmin PrundTThread.Suspend方法（包括Embarcadero文档 :)，但我仍然认为，如果您只控制一个工作线程，则不会发生任何事情，该线程不会受到另一个线程的影响（除了TThread.Resume），并且当您确保在应用程序终止时恢复它时。简而言之，就像调试器一样。 - user532231.NET的东西，使用了你停止线程、改变指令指针并重新启动线程的建议。我的回答包含完整的示例代码。享受吧。 - Cosmin Prundunit UKillThread;
interface
uses Classes, Windows, SysUtils;
procedure AbortThread(const Th: TThread);
implementation
// Exception to be raized on thread abort.
type EThreadAbort = class(EAbort);
// Procedure to raize the exception. Needs to be a simple, parameterless procedure
// to simplify pointing the thread to this routine.
procedure RaizeThreadAbort;
begin
raise EThreadAbort.Create('Thread was aborted using AbortThread()');
end;
procedure AbortThread(const Th: TThread);
const AlignAt = SizeOf(DWORD); // Undocumented; Apparently the memory used for _CONTEXT needs to be aligned on DWORD boundary
var Block:array[0..SizeOf(_CONTEXT)+512] of Byte; // The _CONTEXT structure is probably larger then what Delphi thinks it should be. Unless I provide enough padding space, GetThreadContext fails
ThContext: PContext;
begin
SuspendThread(Th.Handle);
ZeroMemory(@Block, SizeOf(Block));
ThContext := PContext(((Integer(@Block) + AlignAt - 1) div AlignAt) * AlignAt);
ThContext.ContextFlags := CONTEXT_FULL;
if not GetThreadContext(Th.Handle, ThContext^) then
RaiseLastOSError;
ThContext.Eip := Cardinal(@RaizeThreadAbort); // Change EIP so we can redirect the thread to our error-raizing routine
SetThreadContext(Th.Handle, ThContext^);
ResumeThread(Th.Handle);
end;
end.
以下是如何使用AbortThread：
program Project23;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
Windows,
UKillThread;
var Th: TThread;
type
TTestThread = class(TThread)
public
procedure Execute;override;
end;
{ TTestTrehad }
procedure TTestThread.Execute;
var N: Integer;
begin
try
N := 1;
while not Terminated do
begin
WriteLn(N);
Inc(N);
Sleep(1000);
end;
except on E:Exception do
WriteLn(E.ClassName + ' / ' + E.Message);
end;
end;
begin
Th := TTestThread.Create(False);
WriteLn('Press ENTER to raize exception in Thread');
ReadLn;
AbortThread(Th);
WriteLn('Press ENTER to exit');
ReadLn;
end.
在您使用此代码之前，请确保您了解其功能。该代码并不是适当的 Terminate - Terminated 逻辑（即协作式线程关闭）的替代品，但它比使用 TerminateThread() 更好。此代码是基于.NET Thread.Abort() 方法建模而成。我不知道实际的 .NET 方法是如何实现的，但请仍然阅读一下，因为使用此代码可能会遇到类似的潜在问题：
EAbort 派生异常。线程的代码可能会捕获该异常。这很不可能发生，因为 EAbort 异常不应被处理。finally 部分或设置新异常帧时停止线程。即使您的线程使用适当的 try-finally 块，如果在分配资源给变量之前分配资源后引发异常，可能会导致内存或资源泄漏。try-finally 之前，则可能会导致死锁。 EnterCriticalSection 的 MSDN 页面 提到：“如果一个线程在拥有临界区所有权时终止，则临界区的状态是未定义的。” 这让我感到意外，我的直觉认为当拥有线程终止时，关键部分应该被“释放”，但显然不是这样。这是不可能的，Delphi并不重要。异常信息存储在堆栈中，而堆栈属于线程（每个线程都有自己的堆栈）。因此，您必须在同一线程中引发和处理异常。
@Max：如果您在不同的线程中执行代码（使用Synchronize或Queue方法），则代码引发的异常只能在相同（不同）的线程中捕获。
可能会出现线程A引发并捕获异常，将异常对象传递给线程B，然后线程B重新引发异常的情况，但线程B绝对无法捕获由线程A引发的异常，因为每个线程都有自己的堆栈。
OnTerminate 事件绑定到主线程的自己的 TNotifyEvent 上才能实现它（正如 Rob 在这里指出的那样：https://dev59.com/IHA65IYBdhLWcg3wyh97#3627964）。而且你不需要添加异常属性，你可以通过 FatalException 属性获取一个（Exception 类）。事件不能运行，它们只是发生 :) - user532231
OnTerminate事件是否已分配其FatalException。但是，如果您仍然想要通知主线程，则需要使用一些同步机制。 - user532231