ShellListView et mask

bonjour a tous,

Quelqu'un pourrait il me dire s'il est possible et comment faire un masque pour n'afficher qu'un type de fichier dans un TShellListView .
Par exemple passer un filtre '*.pas' et n'afficher que les fichier "pas".
Le but étant d'utiliser le TShellListView dans une boite de dialogue d'ouverture de fichier un peu spéciale

merci d'avance

ci-après une discussion du même genre
http://www.developpez.net/forums/showthread.php?t=60710
La manip consiste à gérer l'event OnAddFolder

Code:

---

1 2	canAdd := AFolder.IsFolder or (AnsiIndexText(ExtractFileExt(AFolder.PathName), ['.zip', '.rar', '.pas']) >= 0)

---

N'oublie pas Strutils dans les Uses

A+