Duvida Download de arquivos

[LeandroS.]

Suponhamos que quando eu aperta em um botao,ele faca download de arquivos dentro da pasta determinada.
Exemplo : Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
Nao e um unico arquivo e sim a pasta inteira.
agradeco quem puder me ajudar

[Maikel]

Como assim um botão? só se a pasta tiver em ".rar", ou usando algum script em php pra varrer a pasta e baixar todos os arquivo ao mesmo tempo, mas separados e nao juntos.

[LeandroS.]

Entao,estava pensando na seguinte forma,dele baixar o .zip ou .rar e em seguida descompactar

[Soultt]

Descompactar:

winexec(PChar('C:\arquivos de programas\winrar\WinRAR.exe e c:\Diretorio\onde\esta\o\ponto.rar c:\diretorio\destino\dos\arquivos'),sw_normal);

Fazer o Download:

Use essa função:

function DownloadFile(Source, Dest: string): Boolean;
begin
  try
  Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0;
  except
  Result:= False;
  end;
end;

em uses coloque URLMon e ShellApi

Como usar:

procedure TForm1.DescompactarClick(Sender: TObject);
begin
winexec(PChar('C:\Arquivos de programas\winrar\WinRAR.exe e c:\onde\esta\o\arquivo.rar c:\pasta\destino'),sw_normal); 
end;

procedure TForm1.DownloadClick(Sender: TObject);
begin
   DownloadFile('http://site.do.arquivo.com/arquivo.rar','c:\pasta\destino\arquivo.rar');
end;

end.

Fonte: Algumas paginas encontradas no google.

é isso?

[LeandroS.]

Problema resolvido.Ele faz o download do arquivo .rar e em seguida o UnRAR.exe,extrai e deleta os dois arquivos baixados.