Process32First, Process32Next...

← →
Леприкон © (2004-03-04 10:28) [0]

function ProcessWalk(SG:TStringGrid):boolean; label EndLabel; var hSnapShot, hSnapModule, hProcess:THandle; lppe:PROCESSENTRY32; lpme:MODULEENTRY32; begin Result:=false; SG.RowCount:=2; SG.FixedRows:=1; SG.ColCount:=7; SG.FixedCols:=1; hSnapShot:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0); if Process32First(hSnapShot,lppe) then begin //SG.Cells[0,SG.RowCount-1]:=IntToStr(SG.RowCount-1); SG.Cells[1,SG.RowCount-1]:=lppe.szExeFile; SG.Cells[3,SG.RowCount-1]:=IntToStr(lppe.th32ProcessID); SG.Cells[4,SG.RowCount-1]:=IntToStr(lppe.th32ParentProcessID); SG.Cells[5,SG.RowCount-1]:=IntToStr(lppe.cntThreads); SG.Cells[6,SG.RowCount-1]:="running"; end else Goto EndLabel; while Process32Next(hSnapShot,lppe) do begin SG.RowCount:=SG.RowCount+1; SG.Cells[0,SG.RowCount-1]:=IntToStr(SG.RowCount-1); SG.Cells[1,SG.RowCount-1]:=lppe.szExeFile; hSnapModule:=CreateToolHelp32SnapShot(TH32CS_SNAPMODULE,lppe.th32ProcessID); if Module32First(hSnapModule,lpme) then SG.Cells[2,SG.RowCount-1]:=lpme.szExePath else SG.Cells[2,SG.RowCount-1]:="unknown"; CloseHandle(hSnapModule); SG.Cells[3,SG.RowCount-1]:=IntToStr(lppe.th32ProcessID); SG.Cells[4,SG.RowCount-1]:=IntToStr(lppe.th32ParentProcessID); SG.Cells[5,SG.RowCount-1]:=IntToStr(lppe.cntThreads); SG.Cells[6,SG.RowCount-1]:="running"; end; Result:=true; EndLabel: CloseHandle(hSnapShot); end;

Почему, если открыть закоментированную строку, то функция не работает?

← →
Kerk © (2004-03-04 12:03) [1]

Дело не в той строке, IMHO
Установи в самом начале размер структуры, вроде этого:
lppe.size := sizeof(lppe);

> Kerk © (04.03.04 12:03) [1]

Ты прав, забыл. Руки мне оторвать. :))
lppe.dwSize:=SizeOf(lppe);
lpme.dwSize:=SizeOf(lpme); вернуло всё к жизни.
Спасибо.

Process32First, Process32Next... Найти похожие ветки