如何命名TWebBrowser线程

Question

一旦你在TWebBrowser上调用导航或Navigate2，它至少会创建2个新的线程，直到你销毁浏览器才会释放这些线程。

获取TWebBrowser实例产生的线程的线程if以便使用TThread.NameThreadForDebugging命名它们的最佳方法(如果有的话)是什么？

Answer 1

没有办法直接访问线程。但是您可以使用CreateToolhelp32Snapshot()、Thread32First()和Thread32Next()枚举调用进程的运行线程，跟踪您检测到的任何新线程。另一种选择是将线程命名逻辑移到DLL中，这样您就可以通过Delphi的DllProc/Ex()回调来利用它的DLL_THREAD_ATTACH通知。