1.問題，如圖片所敘。在FileListBox中，可以藉由將ShowGlyphs設為true，可以有檔案icon出現，
若要將其更改程Windows的格式，不知是否可以？

2.如果不行，那是否有別的方法可以實作出來？

謝謝大家！

編輯記錄

我沒記錯的話
好像都是內建的樣子@@
要嘛就改用ShellListView
但相關元件就得跟著變動
要嘛就要找3rd元件了吧我猜>"<
===================引 用 pmshkung 文 章===================


1.問題，如圖片所敘。在FileListBox中，可以藉由將ShowGlyphs設為true，可以有檔案icon出現，
若要將其更改程Windows的格式，不知是否可以？

2.如果不行，那是否有別的方法可以實作出來？

謝謝大家！

可以用ListView+ImageList+SHGetFileInfo來做，
參考http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=50626#2

[code cpp]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//FileListBox1->Directory="D:\\";
ListView1->Clear();
ImageList1->Clear();
ImageList1->Width = 16;
ImageList1->Height = 16;
ListView1->SmallImages = ImageList1;
ListView1->ViewStyle = vsList; //vsIcon 大圖示的話，上面寬高要改32*32
AnsiString path = FileListBox1->Directory;
path = (path.Length()==3)?path.SubString(1,path.Length()-1):path; //磁碟目錄會有"/"
for (int i=0; i < FileListBox1->Count; i ) {
TListItem *item = ListView1->Items->Add();
item->Caption = FileListBox1->Items->Strings[i];
AnsiString filename = path "\\" FileListBox1->Items->Strings[i];
//取得icon
SHFILEINFO info;
SHGetFileInfo((filename).c_str(), 0, &info, sizeof(info),
SHGFI_ICON | SHGFI_SMALLICON); //SHGFI_LARGEICON 大圖示 SHGFI_SMALLICON
//儲存icon
TIcon *icon = new TIcon();
icon->Handle = info.hIcon;
item->ImageIndex = ImageList1->AddIcon(icon);
DestroyIcon(info.hIcon);
}
}
[/code]

另外有兩篇用指定imagelist->handle的方式，我try不出來
http://delphi.ktop.com.tw/board.php?cid=168&fid=914&tid=84119#3
http://delphi.ktop.com.tw/board.php?cid=168&fid=914&tid=25911#13