Delphi Twebbrowser intercept the alert and confirm functions on the page

Non-frame-structured web pages can be like this

Uses MSHTML;

Procedure Tform1.webbrowser1navigatecomplete2 (Sender:tobject;
Const Pdisp:idispatch; var url:olevariant);
Var
Vdocument:ihtmldocument2;
Begin
Vdocument: = Twebbrowser (Sender). Document as IHTMLDocument2;
VDocument.parentWindow.execScript (' function alert (str) {return;} ', ' JavaScript ');

The frame is used IHTMLFrameBase2.contentWindow.execScript

VDocument.parentWindow.execScript (' function confirm (str) {return str = = "Zswang";} ', ' JavaScript ');

End