如何命名TWebBrowser线程

Question

在TWebBrowser上调用Navigate或Navigate2后，它将创建至少2个新线程，直到销毁浏览器后这些线程才被释放。

获取TWebBrowser实例生成的线程的线程ID的最佳方法（如果有）是什么，以便使用TThread.NameThreadForDebugging命名它们？

Answer 1

无法直接访问线程。 但是您可以使用CreateToolhelp32Snapshot() ， Thread32First()和Thread32Next()枚举调用进程的正在运行的线程，并跟踪检测到的所有新线程。 另一个选择是将线程命名逻辑移动到DLL中，以便您可以通过Delphi的DllProc/Ex()回调函数利用其DLL_THREAD_ATTACH通知。