[dec]

Hola,

No estoy seguro, pero, creo que tienes que utilizar el evento "AddFolder" del componente "ShellListView", o, cuando menos, algo más o menos como lo que sigue parece funcionar bien:

Código Delphi [-]
const
  // Se me ocurre algo así para permitir varios "tipos" de archivo
  filtroArchivos = '.txt .dat';
  // filtroArchivos = '.txt'; // Sólo archivos de texto

procedure TForm1.ShellListView1AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
  if not AFolder.IsFolder then // Si no es un directorio...
    CanAdd := (Pos(ExtractFileExt(AFolder.PathName), filtroArchivos) <> 0);
end;