Как скачать файл с интернета?

[Hichigo]

Как скачать файл с интернета по прямой ссылке, например www.site.ru/file.txt без подтверждения.
Пробовал подключать google нашел для борланда и др. еще нашел функцию только работает через браузер. т.е. врубает браузер и начинает качать.

[Ca5per]

Добавляешь в uses wininet, далее добавляешь функцию

function getinetfile(const fileurl, path: 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, path+ExtractFileName(StringReplace(fileurl, '/', '\', [rfReplaceAll])));
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;

Использование

getinetfile('http://site.ru/file.txt','C:\');