[JIomaka]

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

[Admin]

Сообщение от JIomaka

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

Ищи на сайте в разделе Система...

[JIomaka]

Сообщение от Admin

Ищи на сайте в разделе Система...

А поподробнее можно?

[Asinkrit]

Давненько писал аналог виндового проводника, думаю тебе пригодится, основной метод, который тебе понадобится SHGetFileInfo();
Вообщем разбирайся)
Вложение 1110

[JIomaka]

Сообщение от Asinkrit

Давненько писал аналог виндового проводника, думаю тебе пригодится, основной метод, который тебе понадобится SHGetFileInfo();
Вообщем разбирайся)

Как сделать чтобы получилось как на картинке?

[JIomaka]

Ну что никто не знает как это можно реализовать?

[Asinkrit]

В программке что я тебе скинул, есть ответ на твой вопрос, ImageList + ListView + SHGetFileInfo, больше ничего не нужно..)

[JIomaka]

Сообщение от Asinkrit

В программке что я тебе скинул, есть ответ на твой вопрос, ImageList + ListView + SHGetFileInfo, больше ничего не нужно..)

Всёравно не доганяю.

Код:

procedure TForm1.Button2Click(Sender: TObject);
var buff: array [0..127] of Char;
      Wnd: hWnd;
      i:integer;
      MainWnd:THandle;
begin
  ListView1.Clear;
  Wnd := GetWindow(Handle, gw_HWndFirst);
  while Wnd <> 0 do
  begin 
    if (Wnd <> Application.MainForm.Handle) and
    IsWindowVisible(Wnd) and 
    (GetWindow(Wnd, gw_Owner) = 0) and
    (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) and 
    (Wnd <> FindWindow(nil, 'Program manager'))
    then
     begin
      GetWindowText(Wnd, buff, sizeof(buff));
      ListView1.Items.Add.Caption:=StrPas(buff);
      for i := 1 to ListView1.GetCount do
      ListView1.Items.Item[i-1].ImageIndex:=i-1;
    end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
  end;
end;

Таким образом я получаю список запущенных программ. А вот как показать рядом с ними иконки не знаю.

[JIomaka]

Ну что никто не знает?

[AND_REY]

Вот помоему то что вам нужно Список запущенных процессов.rar , разбирайтесь.