Delphi dicas

Copiando vários arquivos com shell do windows

//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;

por : Gilbert Ribeiro