MultiFilesAndDirsOpenDialog

Multifilesanddirsopendialog

Delphi Multi Files и Dirs Open Dialog, поддержка FMX и VCL (изменить сами) над Windows Vista, в случае Winxp вы можете реализовать SelectDirectory ()

Использование:

 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；