Como copiar un archivo en Delphi?

[Ricsato]

Hola amigos, me gustaria que alguien me dijera como le hago para copiar un archivo indicandole por codigo desde delphi, por ahi lei la ayuda y dice que existe COPYFILE(), pero menciona que se aprovecha esta propiedad de windows y no pone sintaxis y bueno si alguien conoce la sintaxis o conoce otro metodo para copiar un archivo, se lo agradecere mucho que me lo haga saber.

Gracias.
Saludos desde Mexico.

[delphi.com.ar]

La diferencia en el trato al ser una WinApi, es que sus parámertos en lugar de strings son PChar, puedes utilizarla con sus parametros como constante, y el compilador los cambiará si que te des cuenta:

CopyFile('C:\COMMAND.COM', 'A:\COMMAND.COM', True);

o como variable del tipo string haciendo un cast a PChar

procedure Copiar(AOrigen, ADestino: string);
begin
  CopyFile(PChar(AOrigen), PChar(ADestino), True);
end;

Existen infinidades de formas de hacer esto, solo te nombré las mas comunes.

Saludos!

[roman]

Otra forma de hacerlo es usando streams:

procedure CopyFile(const Source, Dest: String);
var
  FromStream, ToStream: TFileStream;

begin
  FromStream := TFileStream.Create(Source, fmOpenRead);
  try
    ToStream := TFileStream.Create(Dest, fmCreate);
    try
      ToStream.CopyFrom(FromStream, 0);
    finally
      ToStream.Free;
    end;
  finally
    FromStream.Free;
  end;
end;

Según la ayuda de Delphi (de donde surgió el ejemplo) este método serviría también para Kylix.

// Saludos

[Ricsato]

Gracias amigos, por su ayuda, me ha sido muy util