O exemplo a seguir copia todos os arquivos de um diretório para outro usando a Shell API do Windows.

• Inclua na seção uses: ShellApi
• Coloque um botão (Button1) no formulário.
• Programe o evento OnClick do botão como abaixo.

procedure TForm1.Button1Click(Sender: TObject);
var
  Dados: TSHFileOpStruct;
begin
  FillChar(Dados,SizeOf(Dados), 0);
  with Dados do
  begin
    wFunc := FO_COPY;
    pFrom := PChar('C:\DiretorioOrigem\*.*');
    pTo   := PChar('C:\DiretorioDestino\');
    fFlags:= FOF_ALLOWUNDO;
  end;
  SHFileOperation(Dados);
end;

Esta forma de copiar arquivos oferecem várias vantagens:

• O Shell avisa para pôr uma próxima mídia quando a atual estiver cheia.
• Pode copiar arquivos usando máscara de uma forma extremamente simples.
• Copia arquivos e pastas sem complicações.
• Mostra o progresso da operação enquanto copia os arquivos.