Запущенные приложения

[JIeT4uK]

1 нужно получить список запущенных приложений - как на таскбаре
2 список процнссов запущенных определенным пользователем3

подкиньте немного кода

[Arcanoid]

см. CreateToolhelp32Snapshot(), Process32First(), Process32Next()...

[Опришник]

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


Public Sub Scan()
    PList.Clear
    Dim hShot&, Proc As PROCESSENTRY32
    Proc.dwSize = Len(Proc)
    hShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
    If hShot = 0 Then Exit Sub
    If Process32First(hShot, Proc) Then
        Do
            PList.AddItem Proc.szExeFile
        Loop While Process32Next(hShot, Proc)
    End If
    Call CloseHandle(hShot)
End Sub


PList - это листбокс с процессами...