比如知道一个超链接，如何用程序下载其内容！

[huojiehai]

如‘http://320.bwan.org/funny/beach.exe',我如何才能用程序下载beach.exe这个文件

[huojiehai]

TO zxfsdbj(飞飞猫)，如何得知一个已下载完
TO wenguang(吟天涯）我要的是用程序下载
TO haojie(超级解霸) 用流如何进行
各位高手，正如man8888(北京男人)所说的，如何做呀 ，请给出例子

[wenguang]

另存为

[wenguang]

如果你安装了GlashGet下载软件的话，直接在浏览器地址栏中输入‘http://320.bwan.org/funny/beach.exe'就可以了。

[jackystar]

up

[haojie]

使用流进行读取吧！

[man8888]

不过得需要显示下载进度呀！
1、要知道文件大小。
2、要知道下载了多少。
恩。。不明白！

[zxfsdbj]

引用shellapi单元
同时写如下事件
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(handle,'open',pchar('http://320.bwan.org/funny/beach.exe'),Nil,Nil,SW_SHOWNORMAL);
end;

[goodloop]

不明白，关注

up

[Billy_Chen28]

用NMHTTP控件，代码如下：
代理服务器用的是WINgate，IP是：202.102.13.2 端口是：8078
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Psock, NMHttp, ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
NMHTTP1: TNMHTTP;
StatusBar1: TStatusBar;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
nmhttp1.Proxy :='202.102.13.2';
nmhttp1.ProxyPort :=8078;
//nmhttp1.Host :='www.sina.com.cn/index.asp';
nmhttp1.Port :=80;
nmhttp1.ReportLevel :=1;
nmhttp1.InputFileMode :=false;
nmhttp1.OutputFileMode :=false;
nmhttp1.Connect ;
statusbar1.Panels [0].Text :='连接上新浪网！';
label1.Caption :=nmhttp1.RemoteIP;
label2.Caption :=nmhttp1.LocalIP ;
//nmhttp1.Get('www.njcein.com.cn\index.asp');
memo1.Lines.Add (nmhttp1.Header);
memo1.Lines.Add (nmhttp1.Body);
end;

end.