スレッドを同じプロセスで一覧表示する方法は？

Question

私はすべてのスレッドを実行するこのコードを持っています。私は自分のプロセスからのみスレッドを取得したいと思います。システム上で実行されているすべてのスレッドをループする必要はありません。

var 
    SnapProcHandle: THandle; 
    NextProc  : Boolean; 
    TThreadEntry : TThreadEntry32; 
begin 
    SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0); 
    Result := (SnapProcHandle <> INVALID_HANDLE_VALUE); 
    if Result then 
    try 
    TThreadEntry.dwSize := SizeOf(TThreadEntry); 
    NextProc := Thread32First(SnapProcHandle, TThreadEntry); 
    while NextProc do 
    begin 
     if TThreadEntry.th32OwnerProcessID = PID then 
     begin 
     Memo1.Lines.Add('Thread ID  '+IntToStr(TThreadEntry.th32ThreadID)); 
     Memo1.Lines.Add('base priority '+inttostr(TThreadEntry.tpBasePri)); 
     Memo1.Lines.Add('delta priority '+inttostr(TThreadEntry.tpBasePri)); 
     end; 
     NextProc := Thread32Next(SnapProcHandle, TThreadEntry); 
    end; 
    finally 
    CloseHandle(SnapProcHandle); 
    end; 
end; 

Answer 1

これはWMI（Windows MIcrosoft Instrumentation）で実行できます。 Here there are an articleは、1つのプロセスで実行されているすべてのスレッドを取得する方法を説明しています。記事はスペイン語ですが、authomatic translationを使用してコードを表示してサンプルをダウンロードすることができます。

WMIを使用すると、クラスWin32_Process classを使用してプロセスのすべての情報を取得できます。 このクラスの情報を得るために、このようなcoomをコンソールで実行することができます。名前= "bds.exeは" 名前、説明、PROCESSIDをGET

WMICプロセス、 THREADCOUNT、あなたがプロセスの情報を得ることができます。これにより

を処理します。

「プロセスに関連付けられたスレッドを取得する方法」の2番目の手順。これはWin32_Thread classで行うことができます。

あなたはこのようなクエリを起動した場合：ProcessHandle = 10740

WIN32_THREAD FROM

SELECT *をあなたは（最初のクエリのPROCESSIDを参照）、プロセス10740のすべてのスレッドを取得します。

よろしくお願いいたします。

Answer 2

コードはすでに、まさにそれをやっているので、あなたはすでに、特定のプロセスのためのスレッドをフィルタリングする方法を知っている：

if TThreadEntry.th32OwnerProcessID = PID then 

が必要なのは、呼び出し元プロセスのためPIDです。その値を取得するにはGetCurrentProcessId()を使用してください。

TH32CS_SNAPTHREADを使用している場合、CreateToolhelp32Snapshot()ではスナップショットを特定のプロセスに制限できません。スナップショットにはシステム内のすべてのスレッドが含まれているため、ループしながらそれぞれのPIDでフィルタリングする必要があります。