Как получить список всех запущенных прог

[*Qwerty*]

Народ, а не подскажете ли как получить список всех запущенных прог на компе(типа как это делается в Диспечере задач...Заранее благодарен.

[A.A.Z.]

На форме - ListBox.
Добавь этот код в форму:

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

Private Sub Form_Load()
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub

А этот - в модуль:

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

Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String, Ret As Long
Ret = GetWindowTextLength(hwnd)
sSave = Space(Ret)
GetWindowText hwnd, sSave, Ret + 1
If sSave <> "" Then Form1.List1.AddItem sSave
EnumWindowsProc = True
End Function

Обязательно вставь его именно в модуль, это важно!

[*Qwerty*]

И чё, список в листбоксе окажется?

[alibek]

Нет, этот код отформатирует твой жесткий диск, пережгет видеокарту и выведет похабную картинку на монитор.

[RayShade]

Да, да! А еще червяком, земляным червяякооом! (подвывая и притопывая в такт ногой)

[*Qwerty*]

Нет, этот код отформатирует твой жесткий диск, пережгет видеокарту и выведет похабную картинку на монитор.

Задумчиво: я тааак и знааал.

[X-BOND]

Если проги так сильно "запущены", то никакой список уже не поможет