Fragen zu TShellListView und TShellTreeView

[litsa]

Hallo
versuch's mal hiermit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
s: TstringList;
begin
s := TStringList.Create;
vli.SelectAll(true);
s.AddStrings(vli.SelectedPaths);
try
for i := 0 to vli.SelectedCount-1 do
if ExtractFileExt(s.Strings[i]) <> '.mp3' then  begin
vli.Selected[vli.FindNode(s.Strings[i])] := false;
vli.Refresh;
end;
finally
s.free;
end;
end;