Buscar por:

Copiando vários arquivos com shell do windows

Código

//Declare ShellAPI

//coloque um componente OpenDialog

//coloque isso dentro de um botão

var

Dados: TSHFileOpStruct;

arq: string;

i:integer;

begin

OpenDialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];

if OpenDialog1.Execute then

  begin

    FillChar(Dados,SizeOf(Dados), 0);

    with Dados do

      begin

        wFunc := FO_COPY;

        for i:=0 to OpenDialog1.Files.Count -1 do

          arq:=arq+OpenDialog1.Files.Strings[i]+char(#0);

        pFrom :=  PChar(arq);

        pTo := PChar('c:');

        fFlags:= FOF_ALLOWUNDO;

      end;

    SHFileOperation(Dados);

  end;