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;

推荐分享