MultiFilesAndDirsOpenDialog

MultifileSandDirsopendialog

Delphi Multi Files和Dirs 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；