Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.12.30;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

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

Наверх





Память: 0.46 MB
Время: 0.008 c
3-1188380208
Quart
2007-08-29 13:36
2007.12.30
blob has been modified


8-1171988250
ndg
2007-02-20 19:17
2007.12.30
изменить яркость, контраст и цветность


2-1196868657
vegarulez
2007-12-05 18:30
2007.12.30
Вопрос - Как узнать что TPanel.BringtoFront=True?


2-1196721513
ZGadget
2007-12-04 01:38
2007.12.30
Отделение текста от бинарника


4-1181506821
leonidus
2007-06-11 00:20
2007.12.30
Получение координат нажатия на TouchPad





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский