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 安卓app自动升级

Delphi apihook createprocess

Delphi10.3构造一个json数据的第二种方法，并格式化输出

Delphi cef4Delphi 常用设置

Delphi代码中嵌入asm代码

Delphi xe android 调试错误：connection closed gracefully

Delphi getfilesize 获取文件大小 2

Delphi 利用createservice写与桌面交互的win32服务

Delphi xe listview导出excel

Delphi输入字符与tlistbox项目匹配

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

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