Copiar carpeta(s) con ProgressBar

[koalasoft]

Empezado por marcoszorrilla

Mírate esta función:

Copia ficheros con Progreso.

procedure CopyFiles(const Source,Destination: String);
var
SHFileOpStruct : TSHFileOpStruct;
begin
if FileExists(Source) then
begin
FillChar(SHFileOpStruct,SizeOf(TSHFileOpStruct),#0);
    with SHFileOpStruct do begin
Wnd:=Application.Handle;
      wFunc:=FO_COPY;
      fFlags:=FOF_ALLOWUNDO;
      hNameMappings:=nil;
      pFrom:=PChar(Source+#0+#0);
      pTo:=PChar(Destination+#0+#0);
    end;
ShFileOperation(SHFileOpStruct);
 end;
end;

Un Saludo.

Cómo seria un ejemplo para poder usar este procedimiento? y cuando dices "con progreso" te refieres a una barra de progreso o como? .. igual si funciona para varios archivos por asi decirlo, todos los archivos con la extensión .dbf ..

Saludos !!