怎样实现用指定程序下载web中的资源(100分)

各位:
我在程序中用webbrowser显示一个网页,网页中有可下载资源的链接,我怎样实现在点击网页下载链接时自动用我的程序下载资源(http,ftp都行),类似电驴或讯雷的网站资源下载

这个很简单 你利用百度查一下 一大把 希望你能找到，我前个月做过相同的项目，你一定能行~实在找不到加我Q 我帮你 24685462

利用internet的相关 API 函数可以实现。下面的函数供你参考：
uses Wininet;

function GetInetFile(const fileURL, FileName: 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, FileName);
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;

使用示例：
var
FileOnNet, LocalFileName: string
begin
FileOnNet := 'http://delphi.about.com/library/forminbpl.zip';
LocalFileName := 'File Downloaded From the Net.zip';
if GetInetFile(FileOnNet, LocalFileName) then
ShowMessage('Download successful')
else
ShowMessage('Error in file download');
end;

end;

to szhcracker
我的意思您误解了,我是在我程序中的webbrowser中打开一个网页,当点击网页中的下载链接时用我的程序进行下载,也就是用您的方法下载.担关键是怎么捕获点击链接的动作.谢谢;

to 芙蓉弟弟
能否提供一些下载链接,单位不可以用QQ