Hmpf. Habe ich bei der Suche übersehen:
Delphi-Quellcode:
procedure TfrmTemplate.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
begin
CanAdd := AFolder.IsFolder or MatchesMask(AFolder.DisplayName, '*.xml');
end;