работа с listview

[D_E_N]

Привет всем. как при получении строки вида D:\111.exe в listview отображать соответст в Windows иконкой? (если файла не существует по этому пути) подскажите пожалуйста

[mihali4]

Что зададите в TImageList-ах, то и будет отображаться.
Событие OnGetImageIndex.

[D_E_N]

а иначе не как?

[psycho-coder]

Пример Михаила Флёнова из книги Библия Delphi 11 глава

procedure TForm1.FormActivate(Sender: TObject);
var
  SysImageList: UINT;
  SFI: TSHFileInfo;
begin
  // Create lists big and small icons
  ListView1.LargeImages := TImageList.Create(Self);
  ListView1.SmallImages := TImageList.Create(Self);

  // Query big icons
  SysImageList := SHGetFileInfo(nil, 0, SFI, SizeOf(TSHFileInfo),
    SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
  if SysImageList <> 0 then
  begin
    // Get big icons
    ListView1.LargeImages.Handle := SysImageList;
    ListView1.LargeImages.ShareImages := true;
  end;

  // Query small icons
  SysImageList := SHGetFileInfo(nil, 0, SFI, SizeOf(TSHFileInfo),
    SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  if SysImageList <> 0 then
  begin
    ListView1.SmallImages.Handle := SysImageList;
    ListView1.SmallImages.ShareImages := true;
  end;
end;

При добавлении

with ListView1.Items.Add do
          begin
            Caption := SearchRec.Name;
            // get icon
            ImageIndex := ShInfo.iIcon;
            // get size
            SubItems.Add(FloatToStr(((SearchRec.Size / 1024) / 1024)));
            SubItems.Add(ShInfo.szTypeName);
            SubItems.Add(FileTimeToDateTimeStr(ftLastWriteTime));
            SubItems.Add(Attributes);
            SubItems.Add(Edit1.Text + cFileName);
            if (FILE_ATTRIBUTE_DIRECTORY and dwFileAttributes) > 0 then
              SubItems.Add('dir')
            else
              SubItems.Add('file');
          end;

[D_E_N]

отображает но иконка вообще не та.

[psycho-coder]

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

 SysImageList := SHGetFileInfo(<путь к файлу>, 0, SFI, SizeOf(TSHFileInfo),
    SHGFI_SYSICONINDEX or SHGFI_SMALLICON);

[D_E_N]

а если файла не существует? можно ли как то использовать библиотеку shell32.dll?

[spamer]

Вот тут смотри - тык

[D_E_N]

SPAMER спасибо но я там был.

[psycho-coder]

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

а если файла не существует? можно ли как то использовать библиотеку shell32.dll?

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

SPAMER спасибо но я там был.

Оо. Вам привели ссылку как использовать shell32.dll. И что же там не так?