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;