[ecfisa]

Hola jsc.

Fijate si asi te sirve:

Código Delphi [-]
...
implementation 

var
 GMask: string = '*.*';

// Evento OnAddFolder
procedure TForm1.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
var
  Found : string;
begin
  if GMask <> '*.*' then
  begin
    GMask  := UpperCase(StringReplace(GMask, '*', '', [rfReplaceAll]));
    Found  := UpperCase(ExtractFileName(AFolder.PathName));
    CanAdd := Pos(GMask, Found) <> 0;
  end;
end;

Llamada ejemplo:

Código Delphi [-]
begin
  GMask := '*fich.*';
  ShellListView1.Refresh;
end;

Saludos