Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Vídeos

Vídeos

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Banner

Delphi - Arquivos, Diretórios e Discos

Como copiar arquivos usando a Shell API do Windows?

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.

O conteúdo desta página pode ajudar alguém? Compartilhe!