PROGRAMERO

Pelo Delphi copiar arquivos de um lugar para outro é simples, nesse exemplo o usuário indica o caminho de origem o de destino e executa a cópia, baixe o exemplo completo aqui . Para o exemplo precisaremos de dois Labels para identificar a função dos Edits , dois Edits para a entrada dos caminhos de origem e destino e um botão para executar o processo, segue o código do click do botão: var   Dados: TSHFileOpStruct; begin   FillChar(Dados,SizeOf(Dados), 0);   with Dados do   begin     wFunc := FO_COPY;     pFrom := PChar(Edit1.Text);     pTo   := PChar(Edit2.Text);     fFlags:= FOF_ALLOWUNDO;   end;   SHFileOperation(Dados); end;