Delphi 提取指定文件夹目录,可设置掩码,可提取文件目录。具体实现思路: try s:=FileListBox1.Directory; for i:=0 to FileListBox1.Count-1 do begin memo1.Lines.Append(FileListBox1.Items.Strings[i]); end; Application.MessageBox('提取成功!','提示',0); except Application.MessageBox('提取失败!','提示',0); end;