MultiFilesAndDirsOpenDialog

Multifiles y dirsopendialog

Delphi Multi Archivos y Dirs Open Dialog, admite FMX y VCL (modificando por usted mismo) arriba de Windows Vista, en el caso de WinXP, puede implementar SELECTDIRECTORY ()

Uso:

 var
list := SelectDirsAndFiles(self.Handle, ' Select your folders and files ' , ' Upload ' );
for var s in list.Keys do
  showmessage( ' Path: ' + s + ' , Is Folder: ' + list[s].ToString(TUseBoolStrs.True));
list.Free；