Помогите разобраться с процессами

[claymen]

Вот нашел в сети модуль (Для VB), который работает с процессами, а именно содает массив PROC() в который записывает все процессы и их атрибуты.
Блин. Вот уже второй час пытаюсь понять, как с этим модул работать.

Просмотрите его plz. и если не очень трудно, то залейте example по этому модулю plz!

[Viper]

ну например так:

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

Public Sub main()
Dim count As Integer
count = GetAllProcess
If count > 0 Then
    Dim i As Integer
    For i = 1 To count
        Debug.Print Proc(i).EXEName & " " & Proc(i).PID
    Next i
End If

End Sub

[claymen]

!Viper!
Все это конечно шорошо, но мне надо узнать handl'ы этих самых EXE.
А точнее из SYSTEM_HANDLE_INFORMATION

[tyomitch]

OpenProcess даст тебе хэндл по пиду.

[Twister]

Что-то я не могу понять, что тебе нужно. Объясни суть задачи. Тебе нужно открыть процесс для работы с ним - тогда Темыч уже ответил. И причем тут SYSTEM_HANDLE_INFORMATION?

[MAXIS]

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

Public Function GetProcessIds(procid As Long) as String
Dim hsnapshot As Long
Dim htpr As Long
Dim ppr As Boolean
Dim pt As PROCESSENTRY32
hsnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0)
pt.dwSize = Len(pt)
ppr = Process32First(hsnapshot, pt)
While ppr
    If pt.th32OwnerProcessID = procid Then
        htpr = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, pt.th32ProcessID))
        If htpr<> 0 Then
         prhand = prhand + CStr(htpr) + vbCrLf
         GetProcessIds = GetProcessIds + CStr(pt.th32ProcessID) + vbCrLf
         CloseHandle htpr
        End If
    End If
    ppr = Process32Next(hsnapshot, pt)
Wend
CloseHandle hsnapshot
End Function


Отсюда можно достать всю информацию по всем процессам сиcтемы.