MultiFilesAndDirsOpenDialog

MultifilesanddirSopendialog

Delphi Multi Files e Dirs Open Dialog, suporta FMX e VCL (Modificar por si mesmo) acima do Windows Vista, no caso do WinXP, você pode implementar o 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；