怎样获得指定进程的线程数，并且得到各线程的状态？

Question

c#有个这个类。可以实现但DELPHI能不能实现那？最好能提供代码。

Answer 1

var
ThreadStruct: TThreadEntry32;
begin
....  
ThreadHandle := CreateToolHelp32Snapshot(TH32CS_SnapThread, Processid);
  try
    ThreadStruct.dwSize := sizeOf(TThreadEntry32);
    if Thread32First(ThreadHandle, ThreadStruct) then
      repeat
        if ThreadStruct.th32OwnerProcessID = ProcessID then // 指定进程的ID
          Listbox1.Items.add(IntTostr(ThreadStruct.th32ThreadID));
      until not Thread32Next(ThreadHandle, ThreadStruct);
  finally
    CloseHandle(ThreadHandle)
  end;
...
end;

Answer 2

要加入TlHelp32单元才能调用2楼的方法

Answer 3

我找了好多人都没有能实现这个功能 
大哥你给我的这个话，我理解不了。能不能给个代码 。anthony634 
 
等 级：
 发表于：2007-10-12 19:57:453楼 得分:0 
可以，不是已经得到句柄了么？有了句柄做什么都可以了吧 
 

Answer 4

要用特殊方法吧，user api 可能是不行地