杀死所有挂起DLL Delphi引起的线程

Question

我有一个调用 DLL 的 Delphi 代码。 DLL 是动态链接的。

在我的代码的开头，我通过

启动/打开 DLL

DllHandle:= LoadLibrary(DllFileName);

• 如果 DLL 文件不存在，我会得到一个DLLHandle=0，这很好。我可以在主程序中继续我的下一行。
• 如果 DLL 文件存在并正确初始化，我会得到一个non-zero DLLHandle，这也很好。

但是，DLL 内部时不时会出现问题，这意味着文件存在但 DLL 没有响应。 所以我的主要应用程序挂起。

为了避免这种情况，我研究了多线程。

我的主程序有一个新类型 TMyThread 继承自 TThread 并覆盖 Create, Destroy, Execute。

我的主程序即时创建一个新线程 (ChildThread)。 ChildThread 的Execute 方法正在调用上面提到的LoadLibrary。

通过这样做，我可以继续我的主程序并稍等片刻，看看ChildThread 是否返回一个非零的 DLL 句柄。 如果 ChildThread 中的 DLLhandle 在几秒钟后仍然为零，我想终止线程并释放 DLL 并重试。

进一步调查我可以看到 Delphi IDE 中的线程列表。最初我的主程序下有 4 个线程。当我创建 ChildTread 时，会出现一个新的。几秒钟后（当调用 Execute 并在 ChildTread 中调用 loadlibrary 时）又出现了两个线程。我猜主 DLL 正在调用其他线程。

在这个阶段，我无法访问 ChildTread，因此我无法在 Execute 方法中使用 while 循环来查看它是否已终止并退出线程。因为该线程中的实际代码已经挂在执行中。

问题： ChildTread 挂起，但我的主程序仍在继续。我想从我的主程序中杀死 ChildThread（可能是它启动的所有其他线程）并重试 DllHandle:= LoadLibrary(DllFileName);

Answer 1

我的主程序动态创建一个新线程 (ChildThread)。 ChildThread 的 Execute 方法正在调用上面提到的 LoadLibrary。

var thread := TMyThread.Create(...);

在这个阶段，我无法访问 ChildTread，因此我无法在 Execute 方法中使用 while 循环来查看它是否已终止并退出线程。因为该线程中的实际代码已经挂在执行中。

if (thread <> nil) 
and DetectWhetherThreadIsHanging(thread)    // <- this is your code
then begin
  TerminateThread(thread.Handle,1);
  thread.Free;
end;

未测试。甚至没有编译。但朝那个方向发展。

推荐阅读：MSDN TerminateThread() function

TerminateThread 是一个危险的函数，只能在最极端的情况下使用。仅当您确切知道目标线程在做什么时才应该调用 TerminateThread，并且您可以控制目标线程在终止时可能正在运行的所有代码。例如，TerminateThread 可能会导致以下问题 [...]

最后，再说一遍：你不能简单地杀死线程。如果 DLL 在加载时卡住，则可能是有原因或 DLL 中存在错误。在 99% 的情况下，当人们出于算法原因感到需要“杀死”一个线程或进程时，这是错误的方法。

编辑和可能的解决方法

但是 LoadLibrary(DLL) 调用了其他线程。他们没有被杀死。我认为因此 DLL 没有被释放，所以我不能再次调用 loadlibrary(dll)

我能想象到的唯一真正的解决方案是这样的，但它对你来说可能不是一个可行的解决方案。这主要取决于DLL的作用，但由于您不告诉我们我们不知道。

1. 将 DLL 包装到单独的 (!) EXE 中
2. 从实际程序启动该 EXE，并在第二个 EXE 失败时自行终止
3. 重复该过程，直到最终成功
4. 在第二个进程中对那个 DLL 做任何你必须做的事情，并在两个进程之间使用某种 IPC。