Fórum Como passar parametros para uma instrução shel??? #182827

366 - Copiando arquivos usando o Shell do Windows 
Coloque no uses: ShellApi 

{ - Coloque um botão no form e altere o evento OnClick deste botão conforme 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:\teste\*.txt´); // Copia os arquivos de Extensão TXT 
pTo := PChar(´a:\´); // Para a unidade A: 
fFlags:= FOF_ALLOWUNDO; 
end; 
SHFileOperation(Dados); 
end