急：如何判断webbrowser能否打开网页？
我使用webbrowser控件浏览某网页，但如果打开失败或者无法连接服务器时，就会显示：此程序无法显示网页......
我不想webbrowser显示这个提示，想先检测一下网页是否能够打开，或者当失败时跳到自己本地的出错提示页或者图片，该如何判断？
[解决办法]
在DocumentComplete事件中判断下标题
uses MSHTML;
procedure TForm1.wb1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
ShowMessage(IHtmlDocument2(wb1.Document).title);
end;
[解决办法]
找个idhttp获取网站http头的例子给你参考下：
procedure Button1Click(Sender: TObject);
var
http : TIdHttp;
url : string;
code : integer;
begin
url := 'http://www.WEBSITE.com';
http := TIdHTTP.Create(nil);
try
try
http.Head(url);
code := http.ResponseCode;
except
on E: EIdHTTPProtocolException do
code := http.ResponseCode;
end;
ShowMessage(IntToStr(code));
finally
http.Free();
end;
end;

这个ResponseCode返回200就是OK，具体代码表示什么你可以搜索http头状态码，你先判断OK了再用webbrower去打开页面，或者你能找到webbrower取http头的方法也可以，我也不知道可不可以。
[解决办法]

function TForm1.CheckInternetOnline: Boolean; // 检查互联网是否在线
var
  ConnectState: DWORD;
  StateSize: DWORD;
begin
  ConnectState := 0;
  StateSize := sizeof(ConnectState);
  Result := false;
  // Use WinInet.pas;
  if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState,
    StateSize) then
    Result := (ConnectState and INTERNET_STATE_DISCONNECTED) <> 2;
  if Result then
    Result := InternetCheckConnection('http://www.baidu.com', 1, 0); 
 
end;