Форум: "Система";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

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);

---

← →
Леприкон ©   (2004-03-04 13:26) [2]

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

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

---

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

Форум: "Система";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.037 c