Получение списка докладной инфы о процессе - VB

Узнай цену своей работы

Формулировка задачи:

Подскажите пожалуйста название АПИ функции или NT функции, которая возвращает подробную инфу о процессе. (Точнее мне нужно знать загрузку ЦП процессом, выделение для него памяти)

Решение задачи: «Получение списка докладной инфы о процессе»

textual
Листинг программы
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 Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Dim Old1 As Long
Dim Old2 As Long
 
 
 
Private Sub Command1_Click()
Timer1.Interval = 300
End Sub
 
Private Sub Command2_Click()
'Делаем нагрузку
DoEvents
Dim kkk As Long
Do While kkk < 10000000
 kkk = kkk + 1
Loop
End Sub
 
Private Sub Timer1_Timer()
'Считываем время процесса
 Dim FT0 As FILETIME
 Dim FT1 As FILETIME
 Dim FT2 As FILETIME
 Dim FT3 As FILETIME
    Label3 = GetProcessTimes(GetCurrentProcess, FT0, FT1, FT2, FT3)
    Label1 = Old1 - (-1 * (FT3.dwHighDateTime - FT2.dwHighDateTime)) / 100000
    Label2 = Old2 - (-1 * (FT3.dwLowDateTime - FT2.dwLowDateTime)) / 100000
    Old1 = (-1 * (FT3.dwHighDateTime - FT2.dwHighDateTime)) / 100000
    Old2 = (-1 * (FT3.dwLowDateTime - FT2.dwLowDateTime)) / 100000
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы