如何判断一个网页为死链接?(100分)

我要做这样一个程序,用户输入IP或网址,我的程序判断那个网页是否为死链接

连一下，能连上就是好的。否则死的。

try
Idhttp1.Get(url);
except
messagebox(handle,'无法打开页面
，请稍后再试！','打开错误',mb_ok+mb_iconerror);
close;
end;

抄一个给你
uses MSHTML

调用checkUrl(你的链接) ：


Function TfMain.CheckUrl(url:string):boolean;
var
hSession, hfile{, hRequest}: hInternet;
dwindex,dwcodelen :dword;
dwcode:array[1..20] of char;
res : pchar;
begin
if pos('http://',lowercase(url))=0 then
url := 'http://'+url;
Result := false;
hSession := InternetOpen(nil,
INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
if assigned(hsession) then
begin
hfile := InternetOpenUrl(
hsession,
pchar(url),
nil,
0,
INTERNET_FLAG_RELOAD,
0);
dwIndex := 0;
dwCodeLen := 10;
HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE,
@dwcode, dwcodeLen, dwIndex);
res := pchar(@dwcode);
result:= (res ='200') or (res ='302');
if assigned(hfile) then
InternetCloseHandle(hfile);
InternetCloseHandle(hsession);
end;
end;

我要非常快的判断网页是否为死链接,2楼3楼的回答不能很快确定,四楼的方法好象也不快
有没有快一点的办法?

要快估计就是indy那个最快了。好像没有再快的了。