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写com+的心得体会

Delphi中httpencode使用注意事项

Delphi 获取android package name:

Delphi 执行cmd并取得返回值

Delphi 防止程序重复执行(多种方法)

Delphi ini文件操作用法

Delphi 从dbgird中导出到excel

Delphi中使用android振动

Delphi 安装fastreport4.8.xx

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

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