Как сделать скачивание с бесплатного хостинга?

[Sanek777]

Кто знает как сделать так, чтобы, вот допустим у меня в ресурсе программе исчезли некоторые файлы - базы данных, мне нужно сделать так чтобы если они исчезли, они скачались автоматически с сайта с моими программами, на бесплатном хостинге. Вот допустим в папку C:\Program Files\12345\ нужно скачать с www.12345.narod.ru\resourse\! Как это сделать? Речь о резервном копировании как у Каспера речи не может и идти речи, так как инсталлятор должен быть абсолютно минимальным!

[Vovandows]

Воспользуйтесь левыми компонентами для обновления своего приложения, и делайте обновления скрыто. Например компонент Update.

[_SERGEYX_]

Я ненавижу, когда прога скрыто пытается лезть в интернет. Тем более, не факт, что в данный момент есть подключение к Инету.
А как скачать файл - написано много, например, так:

uses Wininet;


function GetInetFile(const fileURL, FileName: string): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName: string;
begin
  Result := False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen);
      until
        BufferLen = 0;
      CloseFile(f);
      Result := True;
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;