Загрузка процессора

[GM]

Собственно как мне измерить загрузку процессора(в процентах), для указаного процесса.
Как понимаю нужно взять GetProcessTimes, через некоторый промежуток времени еще раз GetProcessTimes и потом искать какое-то соотношение. Да? Если да, то какое?

[tyomitch]

Отношение разницы GetProcessTimes-ов к длине промежутка.

[Lunatic]

Можно поподробней. Как я понял нам нужно получить разницу между ответами, но как это сделать с помощью GetProcessTimes я так и не понял, она ведь вроде служит для возврата времени работы процесса

Нужно сделать что-то вроде?:

Код: Выделить всё

Private Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type
Private Declare Function GetProcessTimes Lib "kernel32" (ByVal hProcess As Long, lpCreationTime As FILETIME, lpExitTime As FILETIME, lpKernelTime As FILETIME, lpUserTime As FILETIME) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    Dim FT1(3) As FILETIME
    Dim FT2(3) As FILETIME
    Dim HT As Long, LT As Long, cHWND As Long
    cHWND = GetCurrentProcess
    GetProcessTimes cHWND, FT1(0), FT1(1), FT1(2), FT1(3)
    Sleep 1000
    GetProcessTimes cHWND, FT2(0), FT2(1), FT2(2), FT2(3)
   
    For I = 0 To 3
    TMP = TMP & FT1(I).dwLowDateTime & ":" & FT1(I).dwHighDateTime & vbCrLf
    tmp2 = tmp2 & FT2(I).dwLowDateTime & ":" & FT2(I).dwHighDateTime & vbCrLf
    Next I
    MsgBox TMP & vbCrLf & tmp2
End Sub

Но ведь ни единый параметр не меняется, пытался и грузить свой процесс таймером, однак нет никаких различий

[GM]

Спасибо. Я уже за 4 года как ни страноо нашел ответ и написал свой таск-менеджер з блек-джеком и ...

[Lunatic]

Вот я и прошу помощи)) Делись менеджером....)

[GM]

Менеджер я уже вряд ли найду, но могу что по памяти подсказать:

Код: Выделить всё

GetProcessTimes cHWND, FT1(0), FT1(1), FT1(2), FT1(3)
    Sleep 1000
    GetProcessTimes cHWND, FT2(0), FT2(1), FT2(2), FT2(3)


Так поток "спит", ясно что ничего не изменится.
Попробуй, открыть чужой процесс который грузит систему и через таймер посмотреть изменение значений.
Только при открытии, нужно указать PROCESS_QUERY_INFORMATION.

[Williams]

Нда.. Трупику года 4, как-никак, а некрофилы все злобствуют ...

[Lunatic]

Какая разница сколько топику? Решил сделать доброе дело и не создавать новую тему, воспользовался поиском и набрёл сюда. Кстати с чужим процессом тоже не получаеться и вообще почему это функция возвращающая время создания процесса, должна возвращать разное время? Сколько не обращайся к процессу и с какими задержками, а если он был создан 25/05/09 17:10:03.104 то это время будет одинаковым. Кто-то что-то перепутал. Может нужно работать с GetThreadTimes, тогда более правдоподобно получаеться. Есть работающий процесс, создали нить, засекли время

[Lunatic]

Ну и чё? Никто ничего не скажет?