Danke, aber ich muss nochmal verven.
Ich hab das jetzt so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Icon: TIcon;
Item: TListItem;
i: integer;
begin
for i := 1 to ListBox1.Count - 1 do
begin
Icon := TIcon.Create;
try
Icon.Handle := GetAssociatedIcon(ExtractFileExt(ListBox1.Items[i]), True);
Icon.Transparent := True;
Item := ListView1.Items.Add();
Item.Caption := ListBox1.Items[i];
Item.ImageIndex := GlobalImageList.AddIcon(Icon);
finally
Icon.Free;
end;
end;
end;
Jetzt werden einfach leere Strings in die ListView eingefügt, kein Icon, kein Dateiname.
Kannst du mir da bitte nochmals helfen?