copydirectorytree.txt

来自「用delphi开发的目录树复制函数」· 文本 代码 · 共 39 行

procedure CopyDirectoryTree(AHandle:THandle;const AFromDirectory,AToDirectory:String);
var
  SHFileOpStruct :TSHFileOpStruct;
  FromDir :PChar;
  ToDir :PChar;
begin
  GetMem(FromDir,length(AFromDirectory)+2);
  try
    GetMem(ToDir,length(AToDirectory)+2);
    try

      FillChar(Fromdir^,length(AFromDirectory)+2,0);
      FillChar(ToDir^,length(AToDirectory)+2,0);

      StrCopy(FromDir,PChar(AFromDirectory));
      StrCopy(ToDir,PChar(AToDirectory));

      with SHFileOpStruct do
      begin
        Wnd :=AHandle;
        wFunc :=FO_COPY;
        pFrom :=FromDir;
        pTo :=ToDir;
        fFlags :=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
        fAnyOperationsAborted :=False;
        hNameMappings :=nil;
        lpszProgressTitle :=nil;
        if SHFileOperation(SHFileOpstruct)<>0 then
          RaiseLastWin32Error;

      end;
    finally
      FreeMem(ToDir,length(AToDirectory)+2);
    end;
  finally
    FreeMem(FromDir,length(AFromDirectory)+2);
  end;

end;