从网页上下载文件

需添加UrlMon单元

function DownloadFile(Source,Dest:string):boolean;

begin

try

Result :=UrlDownloadFile(nil,pchar(Source),pchar(Dest),0,nil)=0;

except

Result :=False;

end;

end;