Кто сколько CPU времени ест.

← →
Seldon (2004-02-26 16:11) [0]

Здрасьте.
Как узнать, сколько процессорного времени занимает конкретный процесс? (Тот же Explorer.exe)

← →
VMcL © (2004-02-26 16:15) [1]

GetProcessTimes()

← →
Seldon (2004-02-26 17:15) [2]

А как интерпретировать её результаты? Мне кажется, нужно использовать lpKernelTime или lpUserTime. Но они вроде как обозначают секунды, а мне нужны проценты.

Возможно я неправильно выразился: мне нужно узнать, на сколько % конкретный процесс загружает CPU.

← →
Burmistroff (2004-02-27 00:16) [3]

%=(разница usertime/кол-во секунд между опросами)*100%

← →
VMcL © (2004-02-27 11:18) [4]

2 [2]

Кстати, если мне не изменяет склероз, [1] работает в Win2K+.

← →
Игорь Шевченко © (2004-02-27 11:45) [5]

VMcL © (27.02.04 11:18)

Во всех NT-системах.
Included in Windows XP, Windows 2000 Professional, and Windows NT Workstation 3.5 and later.

← →
VMcL © (2004-02-27 14:43) [6]

Roger that ))

← →
Seldon (2004-02-27 15:47) [7]

А способ узнать в 9x есть?

← →
Seldon (2004-02-29 20:01) [8]

Может я чего неправильно делаю?

var Last:Int64; procedure TForm1.Timer1Timer(Sender: TObject); var H:THandle; ID,hP:Cardinal; tmp,PT:_FILETIME; begin H:=FindWindow("TForm1","Form1"); GetWindowThreadProcessId(H,ID); hp:=OpenProcess(PROCESS_ALL_ACCESS,false,ID); GetProcessTimes(hp,tmp,tmp,tmp,PT); Label1.Caption:=FloatToStr((Int64(PT)-Last)/1*100); Last:=Int64(PT) end;

Для теста создал программку с бесконечным циклом. Она загружает на 100%.
Вышеприведённый код для неё даёт 0%. Где ошибка?

> procedure TForm1.Timer1Timer(Sender: TObject);

> H:=FindWindow("TForm1","Form1");
Что то мне подсказывает, что ты ловишь не окно тестового приложение, а окно текущего(того, которое измеряет загрузку) приложения ;-)

Кто сколько CPU времени ест. Найти похожие ветки