[In0stRAnez]

Собственно вот функция которая даёт возможность скачать файл из интернета, проблема в том что я не знаю как правильно вставить сюда обработчик ошибок... дело в том что вылетает ошибочка и убивается приложение если я пытаюсь скачать файлик с инета а сетевые подключения отключены...

Код:

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
try
  Result:=False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG,
  nil, nil, 0);
  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;

function GetWindowsFolder:string;
var p:PChar;
begin
GetMem(p, MAX_PATH);
result:='';
if GetWindowsDirectory(p, MAX_PATH)>0 then   result:=string(p);
FreeMem(p);
end;

[Vlad55]

По-моему внутренний try..finally..end лишний.

[T@nker]

а где URL вводить)))