Заполнить ListView иконками

[nefakt]

Всем привет.
Как можно заполнить ListView иконками из .exe?
Пути до .exe берутся из .ini файла.

[Stilet]

Нескромный вопрос: ShellListView не годится?

[nefakt]

У меня XE7 но нету почему то ShellListView или его отдельно качать? если да скиньте ссылку на него.

[Stilet]

А вот описание как его подключить от самих авторов: http://docwiki.embarcadero.com/CodeE...ontrols_Sample
Иначе придется писать кучу кода с использованием такого: http://www.programmersforum.ru/showthread.php?t=20380

[nefakt]

Спасибо. Пойду почитаю

В описании сказано перейти по ссылке и открыть файл ShellControls.groupproj
Я скачал по той ссылки всю папку ShellControls но там нету файла ShellControls.groupproj так же нету bcbshlctrls.bpl

[Stilet]

но там нету файла ShellControls.groupproj так же нету bcbshlctrls.bpl

Читаешь невнимательно.
1) Скачать по ссылке файлы.
2) Открыть в Делфи DPK
3) Проинсталлировать его
4) Появятся нужные компоненты:
Безымянный.jpg

Безымянный2.jpg

[nefakt]

Я файлы скачал. Спасибо помогло а я Build пытался сделать и у меня ошибка вылазила.
А где можно примеры посмотреть работы с данным ListView или он на стандартный похож?

[Stilet]

Похож на стандартный, только работает с файловой системой.
А вот примеры наверное в хелпе стоит.

[nefakt]

Ясно, спасибо.

в общем библиотека хорошая но появился небольшой вопрос.
Вот код как добавляет в ListVIew

const
  SectionName = 'Prog';
var
  Keys: TStringList;
  Inifile: TMemIniFile;
  I: Integer;
  S: String;
begin
  Inifile := TMemIniFile.Create('Settings.ini');
  Keys := TStringList.Create;
  Inifile.ReadSection(SectionName, Keys);
  for I := 0 to Keys.Count-1 do
    begin
      ShellListView1.Root:=Inifile.ReadString(SectionName, Keys[I], '');
    end;
  FreeAndNil(Keys);
  FreeAndNil(Inifile);

Проблема в том что он берет из ini пути но в ListView оказываются файлы только добавленные по последнему пути.
Можно это как то исправить вот вид ini

[Prog]
NameProg=C:\Prog\PShop\
NameProg=C:\Prog\CyberLink\

Или можно на данном ListView настроить вложенность поиска,
что бы можно было добавить в ini просто путь C:\Prog\ и сам дальше в каждую папку будет входить и брать от туда файлы.
Вчера долго сидел но в голову ни чего не пришло.

[Stilet]

оказываются файлы только добавленные по последнему пути.

  Inifile.ReadSectionValues(SectionName, Keys);
  for I := 0 to Keys.Count-1 do
    begin
      ShellListView1.Root:=Keys.ValueFromIndex[I];
    end;