Обновление на Delphi - Компьютерный форум OSzone.net

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

Добавлено:

Код:

...

uses Wininet;

...

public

 &nbsp; &nbsp;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;