안녕하세요.
최용일님의 글을 보고 ListView에 아이콘 넣는걸 해봤는데 글씨만 써지고
아이콘은 나타나지가 않습니다.
폼에 ListView 박스 하나 올려 놓고 테스트를 했습니다.
빠진게 있나요 ?
감사합니다..(_ _)
procedure TForm1.Button1Click(Sender: TObject);
var
  Flags: UINT;
  FileInfo: TSHFileInfo;
  Item: TListItem;
  PIDL: PItemIDList;
begin
  ListView.Items.Clear;

  SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL);

  Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX;
  SHGetFileInfo(PChar(PIDL), 0, FileInfo, SizeOf(FileInfo), Flags);
  Item := ListView.Items.Add;
  Item.Caption := 'Closed Folder';
  Item.ImageIndex := FileInfo.iIcon;

  Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_OPENICON;
  SHGetFileInfo(PChar(PIDL), 0, FileInfo, SizeOf(FileInfo), Flags);
  Item := ListView.Items.Add;
  Item.Caption := 'Opened Folder';
  Item.ImageIndex := FileInfo.iIcon;
end;