api SHFILEOPSTRUCT

[HARD-SOFT]

procedure TForm1.CopiaGClick(Sender: TObject);


// funcion copiar
function CopiaTodo(Origen,Destino : String) :
LongInt;
var
F : TShFileOpStruct;
sOrigen, sDestino : String;
begin
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 or FOF_NOCONFIRMMKDIR or FOF_SILENT or FOF_NOERRORUI;
end;

Result := ShFileOperation(F);
end;

var
ORIGEN, DESTINO : String;

Begin

ORIGEN := Tabladirectorios.FieldByName('ORIGEN').AsString;
DESTINO := Tabladirectorios.FieldByName('DESTINO').AsString;
CopiaTodo(ORIGEN + '\*.*', DESTINO);
end;

quisiera saber si hay alguna manera de que no se bloquee el programa mientras copia
si se puede cancelar el proceso, si se quiere y si hay alguna manera de hacer las copias
incrementales

Muchas gracias

Antonio