Delphi获取指定文件夹目录,可以设置掩码,可以提取到文件目录。源代码情况如下:   memo1.Clear;   try   s:=FileListBox1.Directory;   fori:=0toFileListBox1.Count-1do   begin   memo1.Lines.Append(FileListBox1.Items.Strings[i]);   end;   Application.MessageBox('提取成功!','提示',0);   except   Application.MessageBox('提取失败!','