[santiago22]

Tengo Este Procedimiento, que permite copiar una carpeta y sus archivos.El Problema es que cuando se trata de copiar un archivo que estan en uso, se detienenes el proceso.Mi pregunta es: Como puedo evitar esto, osea, que me permita copiar el archivo que esta en uso o omitirlo. procedure TForm1.Button1Click(Sender: TObject); //Incluye ShellApi 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 end; Result := ShFileOperation(F);end; begin CopiaTodo('c:\Delphi6\*.*','c:\kk');end;