|
Дата публикации статьи: 08.07.2003 00:00
Я думаю, что если вы читаете эту статью, то вам не нужно объяснять зачем все это
нужно. Так вот, здесь я приведу код модуля, который и будет получать всю необходимую
информацию.
Вот и сам модуль. (Добавляете в проект модуль и обзываете его Process_Info).
'Объявляем используемые функции
Private Declare Function CreateToolhelpSnapshot Lib "Kernel32" Alias
"CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID
As Long) As Long
Private Declare Function ProcessFirst Lib "Kernel32" Alias "Process32First"
(ByVal hSnapShot As Long, uProcess As PROC_INFO) As Long
Private Declare Function ProcessNext Lib "Kernel32" Alias "Process32Next"
(ByVal hSnapShot As Long, uProcess As PROC_INFO) As Long
'Теперь объявим процедуру. Именно процедуру, а не функцию!!!
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)
'Теперь константы
Private Const TH32CS_SNAPPROCESS As Long = 2&
Private Const MAX_PATH As Integer = 260
'Теперь наши типы данных
Public Type PROC_INFO
dwordSize As Long
Usage As Long
ProcessID As Long
DefaultHeapID As Long
ModuleID As Long
Threads As Long
ParentProcessID As Long
ClassBase As Long
dwordFlags As Long
FileSize As String * MAX_PATH
End Type
'Public, т.к. в формах и т.д. будет использован этот же тип. Его будем возвращать.
'Теперь функция
Public Function GetProcInfo(mInfo As PROC_INFO) As Boolean
' mInfo мы возвращаем
' Это локальные переменные
Dim LH_SS As Long
Dim currProcess As PROC_INFO
Dim RetVal As Long
LH_SS = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If LH_SS = 0 Then
GetProcInfo = False 'если ошибка, то выдаем негативное значение функции
Exit Function
End If
currProcess.dwordSize = Len(currProcess) 'меряем длину
RetVal = ProcessFirst(LH_SS, currProcess)
Do While RetVal
RetVal = ProcessNext(LH_SS, currProcess) ' заполняем остальные данные
Loop
CloseHandle LH_SS
mInfo = currProcess 'присваиваем значение переменной
GetProcInfo = True ' сообщаем о результатах выполнения функции
End Function
Вот и все. Наверное можно было бы и проще. Да вот не придумал еще. Ах, да. Использование:
Dim MyResult as Proc_Info
call GetProcInfo(MyResult)
|