Delphi中WebBrowser拦截网页Alert对话框消息(转)
2011-08-09 16:05
961 查看
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, ActiveX; type IDocHostShowUI = interface(IUnknown) ['{c4d244b0-d43e-11cf-893b-00aa00bdce1a}'] function ShowMessage(hwnd: THandle; lpstrText: POLESTR; lpstrCaption: POLESTR;dwType: longint; lpstrHelpfile: POLESTR; dwHelpContext: longint;var plResult: LRESULT): HRESULT; stdcall; function ShowHelp(hwnd: THandle; pszHelpfile: POLESTR; uCommand: integer;dwData: longint; ptMouse: TPoint; var pDispatchObjectHit: IDispatch): HRESULT; stdcall; end; TWebBrowser = class(SHDocVw.TWebBrowser,IDocHostShowUI) protected function ShowMessage(hwnd: THandle; lpstrText: POLESTR; lpstrCaption: POLESTR;dwType: longint; lpstrHelpfile: POLESTR; dwHelpContext: longint;var plResult: LRESULT): HRESULT; stdcall; function ShowHelp(hwnd: THandle; pszHelpfile: POLESTR; uCommand: integer;dwData: longint; ptMouse: TPoint; var pDispatchObjectHit: IDispatch): HRESULT; stdcall; end; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TWebBrowser } function TWebBrowser.ShowHelp(hwnd: THandle; pszHelpfile: POLESTR; uCommand, dwData: Integer; ptMouse: TPoint; var pDispatchObjectHit: IDispatch): HRESULT; begin Result := S_FALSE; end; function TWebBrowser.ShowMessage(hwnd: THandle; lpstrText, lpstrCaption: POLESTR; dwType: Integer; lpstrHelpfile: POLESTR; dwHelpContext: Integer; var plResult: LRESULT): HRESULT; begin plResult := MessageBoxW(hwnd,PWChar(lpstrText),'Title',64); Result := S_OK; end; procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('E:/alert.htm'); end; end.
相关文章推荐
- Delphi中WebBrowser拦截网页Alert对话框消息
- Delphi中WebBrowser拦截网页Alert对话框消息(转)
- Delphi的WebBrowser改造,对网页中Alter等对话框的改造方法
- C#:在WebBrowser控件中阻止alert[警告框],confirm[确认对话框]对话框」及解析网页框架集\触发按钮事件
- Delphi_WebBrowser禁止弹出Alert对话框
- Delphi : 使用ApplicationEvents来拦截窗体消息,阻止WebBrowser右键菜单
- Delphi : WebBrowser改造,对网页中Alter等对话框的改造方法
- WebBrowser拦截网页Alter消息
- Delphi的WebBrowser改造,对网页中Alter等对话框的改造方法(通过COM来改造)
- Delphi的WebBrowser改造,对网页中Alter等对话框的改造方法
- Delphi的WebBrowser改造,对网页中Alter等对话框的改造方法
- WebBrowser控件中截获用alert、msgbox等弹出的对话框,获取其内容并将其屏蔽,不予显示
- JS基础第3-2课:alert 消息对话框、confirm 消息对话框
- js拦截alert对话框另类应用
- delphi强制WebBrowser控件使用指定版本显示网页
- 警告(alert 消息对话框)
- WebBrowser 控件中屏蔽alert,confirm脚本对话框的方法-默认点击确定或取消。
- 通过消息拦截达到在Delphi控件中屏蔽原有事件处理的一种方法
- 再谈Delphi关机消息拦截 -- 之控制台程序 SetConsoleCtrlHandler(控制台使用回调函数拦截,比较有意思)
- delphi消息对话框