Главная страница
    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.007 c
15-1195982608
Иван Д.
2007-11-25 12:23
2007.12.30
Гиперкуб


2-1196851391
Максим
2007-12-05 13:43
2007.12.30
DLL


6-1177313276
SergP
2007-04-23 11:27
2007.12.30
TWebbrowser. Разный ХТМЛ-код.


2-1197017050
brother
2007-12-07 11:44
2007.12.30
быстрая выборка из кучи


2-1196763788
Alexandr Malygin
2007-12-04 13:23
2007.12.30
динамическое создание/удаление компонент





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский