Cómo filtrar por tipos de archivo en un componente ShellTreeView

[MaMu]

Empezado por 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;

Gracias por tu respuesta, yo habia probado algo similar, agregando solo archivos y distinguiendo las carpetas, pero tanto en mi forma como la tuya se me cuelan los *.ZIP.

Saludos.