用Delphi7实现多个文件夹的复制与粘贴（自由选择路径）急用！！！

Question

用Delphi7实现多个文件夹的复制与粘贴，最好用“内存流”的形式，一定要可以选择保存路径的要求！！

Answer 1

//============== 拷贝文件夹 ===============
  procedure copyFilepro(const Str, Dtr: string);
  var
    OpStruc: TSHFileOpStruct;    frombuf, tobuf: array[0..128] of Char;
  begin
    FillChar(frombuf, Sizeof(frombuf), 0);
    FillChar(tobuf, Sizeof(tobuf), 0);
    StrPCopy(frombuf, Str);
    StrPCopy(tobuf, Dtr);
    with OpStruc do
    begin
      Wnd := Handle;
      wFunc := FO_COPY;
      pFrom := @frombuf;
      pTo := @tobuf;
      fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
      fAnyOperationsAborted := False;
      hNameMappings := nil;
      lpszProgressTitle := nil;
    end; {WITH}
    ShFileOperation(OpStruc);
  end;