Copiar Archivos

[[seoane]]

Utiliza algo como esto:

Código Delphi [-]
uses ShellApi;

var
  FOS: SHFILEOPSTRUCT;
begin
  FillChar(FOS,Sizeof(FOS),0);
  with FOS do
  begin
    wFunc:= FO_COPY;
    pFrom:= PChar('d:\1.wmv'+#0);
    pTo:= Pchar('d:\2.wmv'+#0);
  end;
  SHFileOperation(FOS);
end;