Cita:
|
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.