如何用代码调用WINDOWS自带的那个下载功能？

Question

在网上下载链接上点击后，在未安装任何下载工具的情况下，WINDOWS启动自带的那个下载对话框，点击保存则下载文件，点击运行则直接运行该文件，请问如何用代码实现这个功能，在自己编写的程序的窗体中点击链接，启动WINDOWS自带的这个下载对话框实现下载的功能呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  shellexecute(handle,nil,pchar('http://www.2825.com'),nil,nil,sw_shownormal);
end;

Answer 2

引用单元 UrlMonfunction DownloadFile(Source, Dest: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
  except
    Result := False;
  end;
end;