摘要：
描述：复制文件夹以及文件夹下的内容procedure Copy(const SourceDirName, DestDirName: string) 参数一：源文件夹 参数二：目标文件夹所在单元：System.IOUtils代码部分procedure TForm1.Button_CopyClick(Sender: TObject);begin try TDirectory.Copy(Edit_Source.Text, Edit_Dest.Text); except MessageDlg('无效的源目录或目标目录', mtError, [mbok], 0)... 阅读全文
摘要：
描述：显示一个目录的对话框(属于Delphi)function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean;参数一：存放返回值。可设置当前选择目录，不设置则为程序运行目录。 参数二：[]:目录不可编辑，只能手动选择 [sdAllowCreate]: 目录可编辑，目录不存在不负责创建。 [asAkkiwCreate, sdPerformCreate]:目录可编辑， 目录不存在直接创建。 [asAkkiwCreate, sdPerformCreate, sdP. 阅读全文