delphi 复制拷贝文件目录函数

本文整理自网络，侵删。

 
uses
  ShellApi;

function CopyDir(const fromDir, toDir: string): boolean;
var
  lpFileOp: TSHFileOpStruct;
begin
  ZeroMemory(@lpFileOp, SizeOf(lpFileOp));
  with lpFileOp do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY + FOF_NOCONFIRMATION;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir);
  end;
  Result := (ShFileOperation(lpFileOp) = S_OK);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyDir('C:\123','d:\123'); 
end;
 

相关阅读 >>

Delphi 中 16 进制转换为 10 进制

相对完整的多线程idhttp文件下载代码

Delphi 组件值实现增减

Delphi 覆盖模式处理透明

Delphi:取得浏览器地址，网址(支持ie，firefox)

Delphi superobject 序列数据集

Delphi 从数组中任取一个

Delphi app检测智能手机震动

system单元一些有用的变量或者常数

Delphi 内存加载并运行exe程序

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

转载请注明出处：木庄网络博客 » delphi 复制拷贝文件目录函数