Обновление на Delphi

[fossil]

Я пишу программу, и у меня она должен выкачивать обновления из инета или из сети (из указанного места). При каждом запуске она проверяет наличие соединения с инетом и выкачивает с обновления. При этом другие варианты исключаются.. Как это организовать?

[fossil]

Всем спасибо, я написал уже.. :oszone:
Только появилась с ней новая проблема, почему-то она не качает из сети... я указываю путь (\\192.168.12.2\update\file.f) и она выдает ошибку, как сделать чтобы она поддерживала сеть?! ща выложу сорцы

Добавлено:


...
uses Wininet;
...
public
   NADO: boolean;
end;
...
procedure TForm1.BitBtn1Click(Sender: TObject);
var
F: File;
ResumePos, BufferLen, SumSize: DWORD;
hSession, hURL: Hinternet;
Buffer: array[1..1024] of Byte;
err: boolean;
begin
SumSize := 0;
ResumePos := 0;
AssignFile(F, Edit2.Text);
ReWrite(f,1);
NADO := TRUE;
hSession := internetOpen('Download', PRE_CONFiG_iNTERNET_ACCESS, nil, nil, 0);
hURL := internetOpenURL(hSession,PChar(Edit1.Text),nil, 0, 0, 0);
REPEAT
err:= internetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen);
IF err=false then
begin
ShowMessage ('Ошибка');
exit;
end;
BlockWrite(f, Buffer, BufferLen);
Application. Processmessages;
UNTIL (BufferLen= 0) Or (NADO= FALSE);
ShowMessage ('Закачено успешно!');
end;