FilterComboBox und ShellListView kombinieren

[Matze]

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?