No se si esto te servira, pero creo que si.
Estarás usando la copia misma de windows. Pruebalo.
Código:
function TForm1.CopiaTodo(Origen,Destino : String):LongInt;
var
F : TShFileOpStruct;
sOrigen, sDestino : String;
begin
try
Result := 0;
sOrigen := Origen + #0;
sDestino := Destino + #0;
with F do
begin
Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := @sOrigen[1];
pTo := @sDestino[1];
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
end;
Result := ShFileOperation(F);
except
close;
end;
end;
luego lo llamas de la siguiente manera
Código:
CopiaTodo(\\cputal\c\taltaltal,\\cpuqual\c\taltaltal);