Как получить ID-шники нитей (Threads) процесса ?

← →
Phantomaz (2004-01-10 16:44) [0]

Как получить ID-шники нитей (Threads) процесса,
если известен его ID (ProcessID) ?

← →
YuRock © (2004-01-10 16:55) [1]

Thread32First/Thread32Next

← →
Burmistroff (2004-01-10 16:57) [2]

OpenProcess, а дальше - NtQuerySystemInformation.

Либо (что значительно проще):
(ex - массив DWORD"ов)

var
SnapProcHandle: THandle;
ThreadEntry: TThreadEntry32;
Next: Boolean;
begin
try
ex[0]:=0;
SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
if SnapProcHandle <> THandle(-1) then
begin
ThreadEntry.dwSize := Sizeof(ThreadEntry);
Next := Thread32First(SnapProcHandle, ThreadEntry);
while Next do
begin
if ThreadEntry.th32OwnerProcessID = ProcessID then
begin
ex[0]:=ex[0]+1;
ex[ex[0]]:=ThreadEntry.th32ThreadID;
end;
Next := Thread32Next(SnapProcHandle, ThreadEntry);
end;
CloseHandle(SnapProcHandle);
end;
finally
end;
end;

← →
VMcL © (2004-01-11 04:12) [3]

>>Burmistroff (10.01.04 16:57) [2]

Замечание: Win 2000 or higher.

← →
Phantomaz (2004-01-11 13:56) [5]

Спасибо !

Как получить ID-шники нитей (Threads) процесса ? Найти похожие ветки