我怎样才能得到我的应用程序创build的所有线程列表

我想从我的应用程序中获得所有线程(除了主线程,GUI线程)的列表,以便对它们执行一些操作。 (设置优先级,杀死,暂停等)如何做到这一点?

Solutions Collecting From Web of "我怎样才能得到我的应用程序创build的所有线程列表"

你可以使用我的TProcessInfo类:

var CurrentProcess : TProcessItem; Thread : TThreadItem; begin CurrentProcess := ProcessInfo1.RunningProcesses.FindByID(GetCurrentProcessId); for Thread in CurrentProcess.Threads do Memo1.Lines.Add(Thread.ToString); end; 

另一种选择是使用CreateToolhelp32Snapshot , Thread32First和Thread32Next函数。

看看这个非常简单的例子(在Delphi 7和Windows 7中测试)。

 program ListthreadsofProcess; {$APPTYPE CONSOLE} uses PsAPI, TlHelp32, Windows, SysUtils; function GetTthreadsList(PID:Cardinal): Boolean; var SnapProcHandle: THandle; NextProc : Boolean; TThreadEntry : TThreadEntry32; begin SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0); //Takes a snapshot of the all threads Result := (SnapProcHandle <> INVALID_HANDLE_VALUE); if Result then try TThreadEntry.dwSize := SizeOf(TThreadEntry); NextProc := Thread32First(SnapProcHandle, TThreadEntry);//get the first Thread while NextProc do begin if TThreadEntry.th32OwnerProcessID = PID then //Check the owner Pid against the PID requested begin Writeln('Thread ID '+inttohex(TThreadEntry.th32ThreadID,8)); Writeln('base priority '+inttostr(TThreadEntry.tpBasePri)); Writeln(''); end; NextProc := Thread32Next(SnapProcHandle, TThreadEntry);//get the Next Thread end; finally CloseHandle(SnapProcHandle);//Close the Handle end; end; begin { TODO -oUser -cConsole Main : Insert code here } GettthreadsList(GetCurrentProcessId); //get the PID of the current application //GettthreadsList(5928); Readln; end. 

您可以使用WMI访问这些信息。
WIN32_Process可以给你关于在Machine上执行的进程的所有信息。 对于每个进程,你可以给ThreadsCount,Handle,…

另一个类,WIN32_Thread可以给你有关在机器上运行的所有线程的详细信息。 这个类有一个名为ProcessId的属性,用于1个进程的搜索特定线程(类WIN32_Process)。

为了测试,你可以在CommandLine窗口上执行:

 // all processes WMIC PROCESS // information about Delphi32 WMIC PROCESS WHERE Name="delphi32.exe" // some information about Delphi32 WMIC PROCESS WHERE Name="delphi32.exe" GET Name,descrption,threadcount,Handle (NOTE: The handle for delphi32.exe in my machine is **3680**) 

类似的,你可以用WIN32_Thread来使用Handle of进程。

对于我的英语不好,请原谅。

问候。

如果他们是你的线程,那么我将创建一个应用程序全局线程管理器来创建时注册自己。 然后,您可以使用线程管理器正常监视,暂停和关闭线程。