Copiar Archivos

[frankmch]

Oye amigo, gracias por el dato, aunque no lo use me sirvio de referencia para mi busqueda en las ayudas, a fin de cuentas logre con un poco de ayuda de otras fuentes desarrollar este codigo.

Usaremos la funcion API ShFileOperation. Mirate la ayuda de dicha función, ya que permite varias opciones tal como no mostrar el progreso de la
copia, permitir o no UNDO, etc...

-Incluye ShellApi en el uses de tu form

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 
  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:\directorio\*.*','c:\directorio2');
end;

gracias por tu ayuda...