如何实现文件的系在功能

Question

用delphi编写一个可是实现文件下载的程序，请问如何实现？delphi文件下载

Answer 1

给了答案,  不给分..   楼主人品堪忧.
uses UrlMon;
//-------------------------------------------------------------------------------
function DownloadFile(SourceFile, DestFile: string): Boolean;
// 参数 下载文件路径, 保存文件路径
// 返回 下载结果
　begin
　try
　 Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
　except
　 Result := False;
　end;
end;
{调用：}
var
　url,destFile:string;
begin
url := 'http****filename.rar'
destFile := 'E:\filename.rar'
if DownloadFile(url, DestFile) then
　begin
　 ShowMessage('保存成功！');
　end
　else
　begin
　 ShowMessage('保存不成功！');
　end;
end;

Answer 2

系在功能
可是实现文件下载。
直接调用外部程序：curl.exe ...