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 安卓图像压缩bitmapcompress

Delphi 之 热键组件(thotkey)

Delphi 如何比较两个二维数组是否相等

Delphi 中 unicode 转汉字 函数

Delphi 调用外部程序获取程序id，并能关闭该程序

Delphi image 直接加载资源文件

Delphi url 中文编解码

Delphi 提升Delphi 启动加载速度

Delphi xe6通过wifiapi得到wifi信息

Delphi 禁用启用网卡

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

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