Получение списка докладной инфы о процессе - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д