Baixar arquivo na pasta certa

Delphi

08/07/2008

Olá boa tarde,

Estou querendo baixar um arquivo do meu servidor,
Da seguinte maneira é o que estou fazendo:

uses
  SysUtils, Windows, UrlMon;

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

  begin
if DownloadFile
 (´http://servidor.com/arquivo.txt´,
´c:\Arquivos de Programas\SoftPlayer\arquivo.txt´) then

end.


Porém queria baixar o mesmo arquivo e coloca-lo em diretorios diferentes
do computador baixado, Como exemplo -> ´Arquivos de Programas\SoftPlayer\skin\Arquivo.txt´

Então para eu não fazer o download do mesmo arquivo 2 vezes...
A melhor solução seria copiar o arquivo? Ou em só um download dizer
os diretórios onde deve ser depositado o arquivo? Muito bem...
Para ficar melhor, E não haver error como por exemplo computadores inglês com
o diretório (arquivos de programas) diferente, Ou até mesmo a pasta do software
estiver em outro local, Qual seria a melhor solução de pegar o ambiente e
depositar na pasta certa sem error para qualquer computador

Registro?!

Até mais


Psycho

Psycho

Curtidas 0
POSTAR