Скачать: CL | DM;

aProcessEntry32 Глюченный???   Найти похожие ветки 

← →
Yury_FK   (2007-11-30 14:24) [0]

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??? =((((

---

← →
Сергей М. ©   (2007-11-30 14:35) [1]

> // тут глюк


Сам ты глюк)

Заведи себе привычку сначала ходить в 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);  


---

← →
Yury_FK   (2007-11-30 15:23) [2]

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

---

← →
Сергей М. ©   (2007-11-30 15:27) [3]

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


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

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

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

---

← →
Yury_FK   (2007-11-30 15:41) [4]

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

---

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

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

---

← →
Yury_FK   (2007-11-30 16:05) [6]

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

---

← →
Сергей М. ©   (2007-11-30 16:06) [7]

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

---

← →
Yury_FK   (2007-11-30 16:09) [8]

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

---

← →
Rouse_ ©   (2007-11-30 16:17) [9]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c