ShellListView如何根据特定文件后缀名字过滤显示好像没有找到这个属性

Question

ShellListView如何根据特定文件后缀名字过滤显示好像没有找到这个属性

Answer 1

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;