Copiar Archivo

[dec]

Hola,

Puedes utilizar la función "CopyFile" declarada en la unidad "Windows":

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if CopyFile(PChar('C:\archivo.txt'), PChar('D:\archivo.txt'), false) then
     ShowMessage('El archivo se copió correctamente')
   else
     ShowMessage(SysErrorMessage(GetLastError));
 end;

El tercer parámetro requerido por la función "CopyFile" determinará si el archivo ha de sobreescribirse o no en caso de que ya existiera.