Copiar, mover y borrar una carpeta y todo su contenido
 

Con las siguientes funciones podemos copiar, mover y borar carpetas y todo su contenido:

Código Delphi [-]
uses
  ShlObj, Masks, ShellApi;

function CopiarCarpeta(const carpetaOrigen,
  carpetaDestion: string) : boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), #0);
  with FileOp do
  begin
    wFunc := FO_COPY;
    Wnd := GetDesktopWindow;
    pTo := PChar(carpetaOrigen);
    pFrom := PChar(carpetaDestion+#0#0);
    fFlags := FOF_NOCONFIRMATION or
      FOF_SILENT or FOF_ALLOWUNDO;
  end;
  Result := (ShFileOperation(FileOp) = 0);
end;

function MoverCarpeta(const carpetaOrigen,
  carpetaDestion: string) : boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), #0);
  with FileOp do
  begin
    wFunc := FO_MOVE;
    Wnd := GetDesktopWindow;
    pTo := PChar(carpetaOrigen);
    pFrom := PChar(carpetaDestion+#0#0);
    fFlags := FOF_NOCONFIRMATION or
      FOF_SILENT or FOF_ALLOWUNDO;
  end;
  Result := (ShFileOperation(FileOp) = 0);
end;

function BorrarCarpeta(const rutaCarpeta: string) : boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), #0);
  with FileOp do
  begin
    wFunc := FO_DELETE;
    Wnd := GetDesktopWindow;
    pFrom := PChar(rutaCarpeta+#0#0);
    fFlags := FOF_NOCONFIRMATION or
      FOF_SILENT or FOF_ALLOWUNDO;
  end;
  Result := (ShFileOperation(FileOp) = 0);
end;

El código está muy bién, pero a la hora de copiar una carpeta y su contenido a un path con el mismo nombre, se demora mucho en sobreescribirla y además, debería tener un Progressbar que te indique si la copia se efectua o no.

Hola. La verdad que entiendo poco lo que hace la función, pero en elgún punto puedo saber el tamaño de la carpeta?
Gracias.

Hay un error en copiar estan invertidos pFrom Con pTo
donde dice en CopiarCarpeta
[delphi]
pTo := PChar(carpetaOrigen);
pFrom := PChar(carpetaDestion+#0#0);
[delphi]

debe decir
[delphi]
pFrom := PChar(carpetaOrigen);
pTo := PChar(carpetaDestion+#0#0);
[delphi]

muy buen codigo, felicitaciones, muy util.

Hola...como va? una consulta.. ¿que es "GetDesktopWindow"?

Simplemente es el código "Handle" del Desktop de Windows.