ELIEL DE PAULA

FULL STACK WEBDEVELOPER

Fazendo cópia de arquivos com Delphi/Lazarus no Windows 7 ou superior

Postado dia 08/10/2015
ProgramaçãoLazarus/Free-PascalDelphiDicas

Esta é uma dica de como fazer cópias de arquivos usando Delphi ou Lazarus no Windows 7 ou superior. Veja o código de exemplo:

procedure TForm1.Button1Click(Sender: TObject);
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;

Podemos também se precisar, utilizar “*.*”, exemplo:

Origem: C:\RMAR\blocos\*.*

Destino: C:\Radio\

Nesse caso todos os arquivos da subpasta “blocos” irá para a pasta “Rádio”.

Não esqueça de lançar “ShellApi” no “uses” do seu Form.

Comentarios

dica copiar backup arquivos delphi lazarus