Fórum Ajuda Rapida #374131

var
MyFile : Tfilestream;

if DirectoryExists(getenvironmentVariable(´PROGRAMFILES´)+´\Software´)then

MyFile := TFileStream.Create(getenvironmentVariable(´PROGRAMFILES´)+´\Software\´+´new.ini´, fmCreate);
try
except

http.Get(´http://servidor/new.ini´, MyFile);

MyFile.Free;
end;

var vDir   : string;
    MyFile : TFileStream;
begin

  vDir := GetEnvironmentVariable(´PROGRAMFILES´)+´\Software\´;
  if DirectoryExists(vDir)then
     ForceDirectories(vDir);

  MyFile := TFileStream.Create(vDir+´new.ini´, fmCreate);
  try
    http.Get(´http://servidor/new.ini´, MyFile);
  finally
    MyFile.Free;
  end; 

end;