shelllistview的filter问题(100分)

怎样在shelllistview中只显示某一种类型的文件

老兄，怎么又是你？请看：
procedure TForm1.ShellListView1AddFolder(Sender: TObject;
AFolder: TShellFolder; var CanAdd: Boolean);
var s:string;
begin
s:=copy(afolder.PathName,length(afolder.PathName)-2,length(afolder.PathName));
if (s='exe') or (s='EXE') then canadd:=true else canadd:=false;
end;
顺便问一下，您是怎样一位枪手呢？

接受答案了.