Delphi：应用退出时如何终止正在运行的线程？

我完全理解你的困扰——网络操作的超时机制太坑了，DirectoryExists()一旦卡在网络请求上，线程就像“僵住”了一样，连Terminated标志都没法检查，用户关应用的时候还得等半天，体验极差。

核心问题在于：DirectoryExists()底层调用的系统网络API会让线程进入内核态阻塞，这时候线程根本没机会执行任何用户代码（包括检查Terminated），所以经典的循环终止方式完全失效。下面给你几个实用的解决方案：

方案1：用前置检查替代直接调用DirectoryExists() #

与其让线程卡在漫长的网络超时里，不如先快速过滤掉不可达的目标，再执行目录检查：

• 先用Ping快速判断目标主机是否在线（超时设1-2秒就行），避免连主机都不通还去查目录；
• 如果主机在线，再用GetFileAttributes替代DirectoryExists()——两者功能类似，但我们可以配合超时逻辑，或者至少减少不必要的阻塞。

简化示例代码：

procedure TMyThread.Execute;
var
  HostOnline: Boolean;
  Attr: DWORD;
  TargetHost: string;
begin
  // 从共享路径里提取主机名，比如\\server\share -> server
  TargetHost := ExtractHostFromUNCPath(AFilepath);
  
  // 先Ping主机，快速判断可达性
  HostOnline := PingTarget(TargetHost, 1000); // 1秒超时
  
  if HostOnline and not Terminated then
  begin
    // 用GetFileAttributes判断目录是否存在
    Attr := GetFileAttributes(PChar(AFilepath));
    AExists := (Attr <> INVALID_FILE_ATTRIBUTES) and (Attr and FILE_ATTRIBUTE_DIRECTORY <> 0);
  end
  else
    AExists := False;

  // 后续处理逻辑
  ...
end;

（注：ExtractHostFromUNCPath和PingTarget需要你自己实现，Ping可以用Indy的IdIcmpClient组件，或者调用Windows API的IcmpSendEcho）

方案2：用嵌套线程+超时轮询实现可中断的检查 #

如果一定要用DirectoryExists()，可以把这个调用放在一个子线程里，然后主线程（你的TMyThread）每隔一段时间检查自己是否被终止，同时等待子线程完成：

procedure TMyThread.Execute;
type
  TDirCheckThread = class(TThread)
  public
    CheckPath: string;
    ResultExists: Boolean;
    procedure Execute; override;
  end;

var
  CheckThread: TDirCheckThread;
  WaitStatus: DWORD;
begin
  CheckThread := TDirCheckThread.Create(True);
  try
    CheckThread.CheckPath := AFilepath;
    CheckThread.Start;

    // 每隔100ms检查一次：要么子线程完成，要么当前线程被终止
    while not Terminated do
    begin
      WaitStatus := WaitForSingleObject(CheckThread.Handle, 100);
      if WaitStatus <> WAIT_TIMEOUT then Break; // 子线程完成了
    end;

    if Terminated then
    begin
      // 用户要关应用了，终止子线程并清理
      CheckThread.Terminate;
      CheckThread.WaitFor;
      AExists := False;
    end
    else
      AExists := CheckThread.ResultExists;
  finally
    CheckThread.Free;
  end;

  // 后续处理逻辑
  ...
end;

procedure TDirCheckThread.Execute;
begin
  ResultExists := DirectoryExists(CheckPath);
end;

这种方式的好处是，你的主线程不会被阻塞，能及时响应终止信号。唯一的小缺点是，如果子线程已经卡在DirectoryExists()里了，CheckThread.Terminate其实没法立刻终止它——但至少主线程能先退出，不会让用户等太久。

方案3：用异步文件操作实现带超时的检查 #

利用Windows API的异步IO特性，我们可以用CreateFile打开目录，设置超时，这样线程不会一直阻塞：

procedure TMyThread.Execute;
var
  hDir: THandle;
  Overlapped: TOverlapped;
  WaitResult: DWORD;
begin
  ZeroMemory(@Overlapped, SizeOf(Overlapped));
  // 打开目录需要FILE_FLAG_BACKUP_SEMANTICS标志
  hDir := CreateFile(PChar(AFilepath), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,
    nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS or FILE_FLAG_OVERLAPPED, 0);

  if hDir = INVALID_HANDLE_VALUE then
  begin
    AExists := False;
    Exit;
  end;

  // 等待操作完成，最多等5秒
  WaitResult := WaitForSingleObject(hDir, 5000);
  CloseHandle(hDir);

  // 如果线程被终止，直接返回False；否则根据等待结果判断
  AExists := (not Terminated) and (WaitResult = WAIT_OBJECT_0);

  // 后续处理逻辑
  ...
end;

这个方法直接绕开了DirectoryExists()的阻塞问题，用系统级的异步操作+超时来控制，可靠性更高。

重要提醒：别用TerminateThread！ #

很多人会想到用TerminateThread强制终止卡住的线程，但这个方法非常危险——它会直接杀死线程，导致线程持有的资源（比如网络连接、内存块）无法正确释放，可能引发内存泄漏甚至系统不稳定。除非万不得已，否则绝对不要用。

内容的提问来源于stack exchange，提问作者HJay