TShellListView问题，高手指教

Question

TShellListView，怎么过滤显示文件：    就是说，通常情况下TShellListView显示所有文件，我想问的是，能不能只显示特定格式（扩展名）的文件，比如，只显示.rm,.mp3的文件或者让.rm,.mp3的文件同时显示，其他文件则不显示。    高手多指教，多谢多谢，分一定给，up着有分！

Answer 1

两种办法
1.自己修改ShellListView的源代码，使它支持你的要求！
2.使用第三方控件

Answer 2

Delphi7\Demos\Virtual Listview\ 有个例子，看看吧。

Answer 3

自己
搞定
procedure TForm1.ShellListView1AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
var file_type:string;
var t:boolean;
begin
if not AFolder.IsFolder then
     begin
       file_type:=lowercase(extractfileext(AFolder.PathName));
       t:=(file_type='.wmv') or (file_type='.asf');
       if t then
           CanAdd:=true
          else
           CanAdd:=false;
     end
     else
       CanAdd:=true;
end;