delphi 拷贝文件

function DownLoadProductData(strSourFilePath: string; DeFieldpath: string): Boolean;
var
  OpStruc: TSHFileOpStruct;
  FromBuf, ToBuf: array[0..128] of Char;

begin
  try
    FillChar(FromBuf, Sizeof(FromBuf), 0);
    FillChar(ToBuf, Sizeof(ToBuf), 0);
    StrPCopy(FromBuf, Pchar(strSourFilePath));
       //strSourFilePath
    StrPCopy(ToBuf, Pchar(DeFieldpath));
    with OpStruc do
    begin
      //Wnd := handle;
      wFunc := FO_COPY;
      pFrom := @FromBuf;
      pTo := @ToBuf;
      fFlags := FOF_NOCONFIRMATION or FOF_MULTIDESTFILES or FOF_SILENT; //   or   FOF_RENAMEONCOLLISION;
      fAnyOperationsAborted := False;
      hNameMappings := nil;
      lpszProgressTitle := nil;
    end;
    if SHFileOperation(OpStruc) = 0 then
    begin
    end;
  except
    on E:Exception do
      WriteLog(FTodayLog, '获取文件列表出错：'+E.Message);
  end;
end;