Fragen zu TShellListView und TShellTreeView

[Moyyer]

hatte gedacht, dass man mit den "fortschrittlichen" komponenten wenigstens (relativ einfach) die Dateinamen auslesen und diese (Un)Selektieren kann, vor allem wenns eine Dateibrowserkomponente ist.
Aber umsomehr ich mich damit beschäftige umso komplizierter wird es.

Und da anscheinend niemand solche komponenten benutzt, scheinen sie auch net gut zu sein.

Deswegen lass ich es lieber und kehre wieder zu den Delphi-Mitgeliferten-Komponenten zurück.

Habe es immerhin soweit geschafft, das er nur die mp3s markiert, nur beim Beenden des Programms kamen einige schwerwiegende Fehler ohne Zeilenangabe im Code, die nicht "normal" sind

Delphi-Quellcode:

var i, all: integer;
  Node: pvirtualnode;
  s: Tstrings;
begin
  s := Tstringlist.Create;
  vlistview1.SelectAll(false);
  s := vlistview1.SelectedFiles;
  all := VListview1.SelectedCount;
  Node := vlistview1.GetFirstSelected;
  for i := 1 to all do
  begin
    if ansilowercase(extractfileext(s.Strings[i-1])) <> '.mp3' then
    begin
      vlistview1.Selected[node] := false;
      Node := vlistview1.GetNextSelected(Node);
    end
    else
      if i <> all then node := vlistview1.GetNextSelected(Node);
  end;
  s.Free;
end;

falls jemand Verbesserungsvorschläge hat, kann ich es ja mal probieren.