Popup Blocker

[toms]

Hier ein einfacher Popupblocker:

Delphi-Quellcode:

procedure TfrmMyBrowser.WebOne2NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  Doc: IHTMLDocument2;
  sURL: string;
  Flags: OLEVariant;
begin
  // Wenn das Webbrowser Dokument noch nicht geladen wurde,
  // handelt es sich um ein Popup
  if (Sender as TWebbrowser).ReadyState <> READYSTATE_COMPLETE then
  begin
    // ppDisp := nil;
    Cancel := True
    // URL ermitteln, falls das Popup doch noch angezeigt werden moechte...
    Doc := IHTMLDocument2(TWebBrowser(Sender).Document);
    sURL := Copy(Doc.activeElement.outerHTML, pos('href=',
      Doc.activeElement.outerHTML) + 5, length(Doc.activeElement.outerHTML) -
      pos('href=', Doc.activeElement.outerHTML) + 5);
    sURL := Copy(SsURL, 0, pos('>', sURL) - 1);
    if pos('"', sURL) = 1 then
      sURL := Copy(sURL, 2, Length(sURL) - 1);
    if pos('"', sURL) <> 0 then
      sURL := Copy(sURL, 0, pos('"', sURL));
    if pos('"', sURL) = Length(sURL) then
      sURL := Copy(sURL, 0, Length(sURL) - 1);
    
  end;
end;