delphi 文件夹拷贝子文件及文件夹

本文整理自网络，侵删。

 
function TForm1.CopyPath(BasePath,TargetPath:string):Boolean;
var
  i:Integer;
  cmd:string;
begin

    cmd:='echo d | Xcopy '+BasePath+' '+TargetPath+' /s/e';
    ShowMessage(cmd);
    i:=ShellExecute(Handle,nil,'cmd.exe',PChar('/K '+cmd),nil,SW_HIDE);
    if i>32 then Result:=True else Result:=False;
end;
 

相关阅读 >>

Delphi实现线程池组件（完整源码）

Delphi xe5 使用 android 内置函数几个小测试

Delphi 快速读取txt 指定行的数据

Delphi 获取星期的函数

Delphi fmx app 设置 程序图标，闪屏,程序名

Delphi 枚举resource资源名

Delphi xe5 android 设置权限

Delphi 怎么将一个流转换成字符串？或者将字符串转出一个流

为Delphi的控制台程式添加公司信息、版权信息

Delphi 让socket支持域名上线

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 文件夹拷贝子文件及文件夹