각 파일에 대하여 SHGetFileInfo 를 이용하여 운영체제에서 사용하고 있는 아이콘을 읽어와서 파일에 맞는 아이콘을 파일이름 앞에 표시하도록 하였습니다.
그런데 폴더에 대한 아이콘은 어떻게 알 수 있는 지요?

ListView1->Items->Clear();
ImageList1->Clear();

UINT flags = SHGFI_ICON | SHGFI_ICONLOCATION | SHGFI_SYSICONINDEX | SHGFI_TYPENAME;

TSHFileInfo fileinfo;
TListItem* item;
TIcon* icon;
TSearchRec sr;
res = FindFirst(DirectoryListBox1->Directory + "\\*.*", faDirectory | faArchive | faAnyFile, sr);
while(res == 0)
{
    if(sr.Name.c_str()[0] == '.')
        goto CONTINUE;
    item = ListView1->Items->Add();
    item->Caption = sr.Name;
    SHGetFileInfo(item->Caption.c_str(), 0UL, &fileinfo, sizeof(fileinfo), flags);
    icon = new TIcon;
    icon->Handle = ImageList_GetIcon((_IMAGELIST*)hsysicon, fileinfo.iIcon, 0);
    item->ImageIndex = ImageList1->AddIcon(icon);
    item->SubItems->Add(String(fileinfo.szTypeName));
    delete icon;
CONTINUE:
    res = FindNext(sr);
}
FindClose(sr);