写一个扩展IE的COM组件处理IE事件。到这里看一下
http://www.intelligo.net/iedelphi/
www.applevb.com

解决方案 »

  1.   

    procedure TmainForm.WbNewWindow2(Sender: TObject;
      var ppDisp: IDispatch; var Cancel: WordBool);
    begin
       ppDisp := Wb.ControlInterface;
    end;
    这是ie提供的一个接口!
    且只有此法!!!
      

  2.   

    procedure TmainForm.WbNewWindow2(Sender: TObject;
      var ppDisp: IDispatch; var Cancel: WordBool);
    begin
      ppDisp := Wb.Application;
    end;