Preciso criar um exe que copie um arquivo para uma pasta automaticamente

jun1orp1m3n7a · 25 de março de 2009

Preciso crir uma maneira automatica de copiar ou criar, um arquivo de texto em uma determinada pasta, apenas clicando em um executavel.

Sei que é possivel, mas é difícil?

por onde começo??

estou aprendendo a programar agora.. sei quase nada ainda..

mas gostaria de aprender.

obrigado

andersondanilo · 30 de março de 2009

procedure TForm1.Button1Click(Sender: TObject);
var
  Origem, Destino: string;
begin
  Origem := 'c:\Origem\NomeArq.txt';
  Destino := 'c:\Destino\NomeArq.txt';
  if not CopyFile(PChar(Origem), PChar(Destino), true) then
    ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;