Fórum socorro urgente!!!! #192072

{756 - Baixando arquivos da internet
Esta dica serve para quem deseja criar um sistema que atualize seus softwares via internet, e também para quem faz jogos online, ou seja, jogos que exigem a conexão com a internet para serem jogados, pode precisar de um meio rápido, fácil e desburocratizado para baixar arquivos de um site ou de um lugar qualquer da rede. Veja só como é simples e sem contra indicações fazer isso:
}
function DownloadFile(Source, Dest: string): Boolean;
begin
  try
    Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0;
  except
    Result:= False;
  end;
end;
{
Para usar esta function é preciso declarar Urlmon na seção uses da unit. Depois basta fazer uma chamada padrão:

if DownloadFile (´http://www.onde.com/arq.htm´,´c:\arq.htm´) then
  ShowMessage(´Download Concluído.´);
  

Alexandre de Andrade Gonçalves
Analista/Programador
Minas Export Ltda
(37) 3371-1963
www.minasexport.com.br 

}