Hola petete2008.
Probá de este modo:
Código Delphi
[-]
uses ShellApi;
function CopyDir(const Source, Target: string): Boolean;
var
SHFileOpStruct: TSHFileOpStruct;
begin
ZeroMemory(@SHFileOpStruct, SizeOf(SHFileOpStruct));
with SHFileOpStruct do
begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(Source + #0);
pTo := PChar(Target)
end;
Result := (0 = ShFileOperation(SHFileOpStruct));
end;
Llamada de ejemplo:
Código Delphi
[-]
if copyDir('c:\prueba', 'c:\pp') then
else
Saludos.