Delphi-Quellcode:
var FileInfo: SHFILEINFO;
ListItem: TListItem;
begin
ListItem := ListView1.Items.Add;
Listitem.Caption :='c:\test.exe';
ListItem.SubItems.Add('blabal');
SHGetFileInfo(PChar('c:\test.exe'), 0, FileInfo,
SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
icon.Handle := FileInfo.hIcon;
ListItem.ImageIndex := ImageList1.AddIcon(Icon);
destroyIcon(FileInfo.hIcon);
Icon.Free;
ListView1.Items.EndUpdate;
end;
<<funktioniert leider nicht :/