MultiFilesAndDirsOpenDialog

Multifilesanddirsopendialog

Delphi Multi Files and Dires openダイアログ、Windows Vistaの上のFMXおよびVCL（自分で変更）をサポートします。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；