Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

как по изветсному PID процесса получить список его потоков с возм   Найти похожие ветки 

 
Arnold ©   (2004-08-31 11:11) [0]

Пробую следующим образом. Но тут на сколько я понимаю он каждый цикл(2ой repeat) он начинает пробегать все потоки имеющиеся в системе. А как можно сделать чтобы просматривал за один цикл только те потоки которые принадлежат именно его потоку?

hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS or TH32CS_SNAPTHREAD, 0);
try
  pe.dwSize := SizeOf(TProcessEntry32);
  if Process32First(hSnap, pe) then repeat
   threadstruct.dwSize:=SizeOf(TThreadEntry32);
    if Thread32First(hSnap,ThreadStruct) then
    repeat
     if pe.th32ProcessID=ThreadStruct.th32OwnerProcessID then
     begin
      N:=pe.szExeFile;
      EnumThreadWindows(ThreadStruct.th32ThreadID,@EnumThreadWndProc,0);
     end;
    until
     not Thread32Next(hSnap, ThreadStruct);
  until not Process32Next(hSnap, pe);
finally
  CloseHandle(hSnap);


 
Digitman ©   (2004-08-31 13:02) [1]

никак



Страницы: 1 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.042 c
6-1091083739
MakNik
2004-07-29 10:48
2004.10.10
Workstation ID


14-1095989273
Думкин
2004-09-24 05:27
2004.10.10
С днем рождения! 24 сентября


1-1095752480
Turbid
2004-09-21 11:41
2004.10.10
UTF-8?


1-1096293534
Lord de Mon
2004-09-27 17:58
2004.10.10
Ошыбки


14-1095750324
X9
2004-09-21 11:05
2004.10.10
Подстрочный символ (Цифра) в TLabel