Нашел в инете такой фильтр.
Код:
uses masks;
procedure TForm2.ShellTreeView1AddFolder(Sender: TObject; AFolder: TShellFolder;
var CanAdd: Boolean);
begin
CanAdd := AFolder.IsFolder or MatchesMask(AFolder.DisplayName, '*.*')
end;
Пробовал задать, чтобы пропускал только *.arj, но он почему-то не видит arj-архивов, видит только если к имени этих архивов добавить .arj. А можно ли сделать, чтобы он пропускал тогда любые архивные файлы?