摘要:
描述:复制文件夹以及文件夹下的内容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. 阅读全文