Copiando arquivos (Delphi)

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;