文件夹拷贝

Question

在delphi中怎样实现文件夹之间的拷贝？没有找到相应的API函数，只能自己写算法吗？

Answer 1

procedure CopyFile(const Sour, Dest: string);
 var
   FileOp: TSHFileOpStruct;
begin
 with FileOp do
 begin
   Wnd := 0;
   wFunc := FO_Copy;//更换此参数可实现拷贝和更名
   pFrom := PChar(Sour);
   pTo := PChar(Dest);
   fFlags := FOF_NoConfirmation;
   fAnyOperationsAborted := False;
   hNameMappings := nil;
   lpszProgressTitle := nil
 end;
 SHFileOperation(FileOp);
end;