引言: 要怎樣才能得到磁碟機的ICON? 像軟碟機，硬碟機，光碟機的ICON < face="Verdana, Arial, Helvetica"> FunnyZhu 你好: 利用 Win32 API SHGetFileInfo 可以達到目的，請參考以下的範例程式碼 < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { SHFILEINFO sfi; ZeroMemory(&sfi, sizeof(SHFILEINFO)); SHGetFileInfo("A:\\", 0, &sfi, sizeof(SHFILEINFO), SHGFI_ICON); DrawIcon(Image1->Canvas->Handle, 0, 0, sfi.hIcon); DestroyIcon(sfi.hIcon); ZeroMemory(&sfi, sizeof(SHFILEINFO)); SHGetFileInfo("C:\\", 0, &sfi, sizeof(SHFILEINFO), SHGFI_ICON); DrawIcon(Image1->Canvas->Handle, 40, 0, sfi.hIcon); DestroyIcon(sfi.hIcon); ZeroMemory(&sfi, sizeof(SHFILEINFO)); SHGetFileInfo("D:\\", 0, &sfi, sizeof(SHFILEINFO), SHGFI_ICON); DrawIcon(Image1->Canvas->Handle, 80, 0, sfi.hIcon); DestroyIcon(sfi.hIcon); ZeroMemory(&sfi, sizeof(SHFILEINFO)); SHGetFileInfo("E:\\", 0, &sfi, sizeof(SHFILEINFO), SHGFI_ICON); DrawIcon(Image1->Canvas->Handle, 120, 0, sfi.hIcon); DestroyIcon(sfi.hIcon); } 備註: 建議你自行參考 M$DN 中的說明 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shgetfileinfo.asp -- Enjoy Researching & Developing --