Copiar la propia aplicación a otro directorio

[Gothem]

Buenas. Soy principiante y nuevo por aquí.

La cuestión es que he creado una aplicación, y necesito que, al ejecutarse, se copie a otro directorio. ¿Cómo lo consigo?

Muchas gracias.

[ecfisa]

Hola Gothem y bienvenido a los foros de Club Delphi.

Podrías hacerlo al inicio de la aplicación con la función windows API CopyFile.

Te pongo un ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  CopyFile(PChar(Application.ExeName),
           PChar('C:\'+ExtractFileName(Application.ExeName)),False);
end;

Saludos.

[Gothem]

Gracias ecfisa!! Me funciona a la perfección