Copiar archivos con el progreso de windows

Copiar archivos con el progreso de windows

Copiar archivos con el progreso de windows : Multi-millones de consejos para hacer su vida mas facil.

Como copiar varios / archivos de gran tamaño y mostrar el progreso de windows formulario.
(asegurese de ShellAPI es en los USOS de la lista)
Origen y Destino son ambos una lista de archivos separados con #0, por ejemplo:
WinCopyFile('c:/1.txt' #0 'c:/2.txt', 'a:/1.txt' #0 'a:/2.txt')
funcion WinCopyFile(Origen, Destino: string): Boolean
var
& nbsp & nbsp & nbsp Struct : TSHFileOpStruct
& nbsp & nbsp & nbsp Resultval: integer
begin
& nbsp & nbsp & nbsp ResultVal := 1
& nbsp & nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp & nbsp Fuente := Fuente #0#0
& nbsp & nbsp & nbsp & nbsp & nbsp Dest := Dest #0#0
& nbsp & nbsp & nbsp & nbsp & nbsp Struct.wnd := 0
& nbsp & nbsp & nbsp & nbsp & nbsp Struct.wFunc := FO_COPY
& nbsp & nbsp & nbsp & nbsp & nbsp Struct.pFrom := PChar(Fuente)
& nbsp & nbsp & nbsp & nbsp & nbsp Struct.toma de fuerza := PChar(Dest)
& nbsp & nbsp & nbsp & nbsp & nbsp Struct.fFlags:= FOF_SIMPLEPROGRESS o FOF_NOERRORUI o FOF_NOCONFIRMATION
& nbsp & nbsp & nbsp & nbsp & nbsp Struct.fAnyOperationsAborted := False
& nbsp & nbsp & nbsp & nbsp & nbsp Struct.hNameMappings := nil
& nbsp & nbsp & nbsp & nbsp & nbsp Resultval := ShFileOperation(Struct)
& nbsp & nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp & nbsp Resultado := (Resultval = 0)
& nbsp & nbsp final
fin