Список запущенных приложений

[nVz]

Добрый день! столкнулся с такой проблемой. есть код:

var
wnd: hwnd;
buff: array [0..127] of char;
begin
listbox1.clear;
wnd := getwindow(handle, gw_hwndfirst);
while wnd <> 0 do
begin // Не показываем:
if (wnd <> application.handle) // Собственное окно
and iswindowvisible(wnd) // Невидимые окна
and (getwindow(wnd, gw_owner) = 0) // Дочерние окна
and (getwindowtext(wnd, buff, sizeof(buff)) <> 0) then
begin
getwindowtext(wnd, buff, sizeof(buff));
listbox1.items.add(strpas(buff));
end;
wnd := getwindow(wnd, gw_hwndnext);
end;
listbox1.itemindex := 0;
end;

здесь все нормально добавляет. но как еще добавить иконку данных приложений,чтобы было как в диспетчере? заранее спасибо

[p51x]

чтобы было как в диспетчере?

Берете ВинАПИ, делаете снимок, получаете список и берете иконку из exe-файлов.

[Stilet]

http://delphiworld.narod.ru/base/get...processes.html
http://delphiworld.narod.ru/base/enu..._and_term.html
Ну и так далее на том портале в разделе Процессы и Сервисы - [39]