| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

aProcessEntry32 Глюченный???

Yury_FK ©   (2007-11-30 14:24:00) 

procedure TfrmMain.BtnRefreshClick(Sender: TObject);
var
  i: Integer;
  bContinue: BOOL;
  NewItem: TListItem;
  aSnapshotHandle: THandle;
  aProcessEntry32: TProcessEntry32;
begin
  ListView1.Items.Clear;
  aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  aProcessEntry32.dwSize := SizeOf(aProcessEntry32);
  bContinue := Process32First(aSnapshotHandle, aProcessEntry32);
  while Integer(bContinue) <> 0 do
  begin
    NewItem := ListView1.Items.Add;
    NewItem.Caption := ExtractFileName(aProcessEntry32.szExeFile);
    NewItem.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4));
    NewItem.subItems.Add(aProcessEntry32.szExeFile);
    NewItem.SubItems.Add(IntToStr(aProcessEntry32.cntUsage)// тут глюк
    bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);
  end;
  CloseHandle(aSnapshotHandle);
end;

почему не показывается свойство cntUsage??? =((((

---

Rouse_   (2007-11-30 16:17:00) [1]

Изучай: http://rouse.drkb.ru/winapi.php#taskmon

---

Yury_FK   (2007-11-30 16:09:00) [2]

Сергей будьте любезны, подскажите на уровне примера, как определить % использования процессора процессом, либо % использования RAM

---

Сергей М.   (2007-11-30 16:06:00) [3]

Что значит "бестолку" ?

---

Yury_FK   (2007-11-30 16:05:00) [4]

ничего не дало, WMI пользовался - бестолку

---

Сергей М.   (2007-11-30 15:49:00) [5]

http://delphikingdom.ru/asp/answer.asp?IDAnswer=28257

---

Yury_FK   (2007-11-30 15:41:00) [6]

А подскажите, как же тогда определить, сколько %CPU использует процесс

---

Сергей М.   (2007-11-30 15:27:00) [7]

> Все равно в столбце с cntUsage выводиться 0


Ты буквы занешь ?)
Читать умеешь ?)

cntUsage
  This member is no longer used and is always set to zero.

Это для кого написано, для Пушкина ?)

---

Yury_FK   (2007-11-30 15:23:00) [8]

Все равно в столбце с cntUsage выводиться 0

---

Сергей М.   (2007-11-30 14:35:00) [9]

> // тут глюк


Сам ты глюк)

Заведи себе привычку сначала ходить в msdn, прежде чем шуметь о глюках)

cntUsage
   This member is no longer used and is always set to zero.



 bContinue := Process32First(aSnapshotHandle, aProcessEntry32);
 while Integer(bContinue) <> 0 do
 begin
   ..
   bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);
 end;

К чему все эти приседания с преобразованиями типов ?


 if Process32First(aSnapshotHandle, aProcessEntry32) then
 repeat
   ..
 until not Process32Next(aSnapshotHandle, aProcessEntry32);  


---

Наверх