Mostrar iconos de archivos en ListBox

[ecfisa]

Hola.

No sabía si aplicar el ejemplo al título o al contenido... opté por el segundo.

Código PHP:

#include<ShellApi>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (OpenDialog1->Execute())
  {
    WORD inx = 0;
    TIcon *icon = new TIcon;

    icon->Handle = ExtractAssociatedIcon(HInstance,
      OpenDialog1->FileName.c_str(), &inx);

    ImageList1->AddIcon(icon);
    TListItem *li = ListView1->Items->Add();
    li->Caption = OpenDialog1->FileName;
    li->ImageIndex = ImageList1->Count-1;
    li->SubItems->Add(OpenDialog1->FileName);
    li->SubItemImages[0] = ImageList1->Count-1;

    delete(icon);
  }
} 


Vista:


Saludos