如何获取包含我的应用程序创建的所有线程的列表

Question

我想从我的应用程序中获取包含所有线程（除了主 GUI 线程）的列表，以便对它们执行一些操作。 （设置优先级、终止、暂停等） 怎么做呢？

Answer 1

另一种选择是使用 CreateToolhelp32Snapshot,< a href="http://msdn.microsoft.com/en-us/library/ms686728%28VS.85%29.aspx" rel="nofollow noreferrer">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.

Answer 2

您可以使用我的 TProcessInfo 类：

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

Answer 3

您还可以查看 http://blog.delphi-jedi.net/2008/03/19/how-to-get-the-threads-of-a-process/

Answer 4

您可以使用 WMI 访问此信息。
WIN32_Process 可以为您提供有关机器上执行的进程的所有信息。对于每个进程，您可以提供 ThreadsCount、Handle...

另一个类，WIN32_Thread 可以为您提供有关机器上运行的所有线程的详细信息。该类有一个名为 ProcessId 的属性，用于搜索 1 个进程的特定线程（WIN32_Process 类）。

为了测试它，您可以在命令行窗口上执行此操作：

// 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 执行此操作。

请原谅我的英语不好。

问候。

Answer 5

如果它们是您的线程，那么我将创建一个应用程序全局线程管理器以在创建时注册它们自己。然后，您可以使用线程管理器正确地监视、暂停和关闭线程。