TListView 에 아이콘 집어 넣는다고  찾다가 발견한 것임....  ㅋㅋㅋ

시삽님 이하 ....  이곳에 오시는 모든 분들....   한가위 잘 보내십시오.....    그럼 담에.... 씽~~~~


#define NO_WIN32_LEAN_AND_MEAN                                //소스파일 제일 위에 을 넣어주세요.
#include <shlobj.hpp>
#include <vcl.h>
#pragma hdrstop

:
:
:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    SHFILEINFO sfi;

    DWORD ret = SHGetFileInfo(".DOC", 0, &sfi, sizeof(SHFILEINFO), SHGFI_USEFILEATTRIBUTES |     SHGFI_ICON | SHGFI_SMALLICON );

    TIcon *icon = new TIcon;
    Image1->Picture->Icon->Handle = sfi.hIcon;
    delete icon;
}