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