暂停和屏蔽右键网页中的Flash

如何暂停网页中的Flash?原理很简单,就是屏蔽Flash的消息即可。屏蔽右键也可以通过此方法

直接贴代码吧,加了注释,很容易就能懂了

新建工程,加一个WebBrowser,再加两个按钮。Flash 11.7.700.169 测试通过

  1. unit Unit1;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs, OleCtrls, SHDocVw, StdCtrls;
  6. type
  7. TForm1 = class(TForm)
  8. Button1: TButton;
  9. Button2: TButton;
  10. WebBrowser1: TWebBrowser;
  11. Button3: TButton;
  12. procedure FormCreate(Sender: TObject);
  13. procedure WebBrowser1DocumentComplete(ASender: TObject;
  14. const pDisp: IDispatch; var URL: OleVariant);
  15. procedure Button1Click(Sender: TObject);
  16. procedure Button2Click(Sender: TObject);
  17. private
  18. procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
  19. function GetFlashHwnd: HWND;
  20. public
  21. end;
  22. var
  23. Form1: TForm1;
  24. // Flash组件窗口句柄
  25. FlashHwnd: HWND = 0;
  26. // 控制“暂停”的开关变量
  27. FlashPause: Boolean = False;
  28. implementation
  29. {$R *.dfm}
  30. procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
  31. begin
  32. // 处理Flash窗口消息
  33. if (FlashHwnd <> 0) and (Msg.hwnd = FlashHwnd) then
  34. begin
  35. if FlashPause then
  36. begin
  37. // 仅仅保留窗口重绘相关消息,其余的消息全部过滤掉
  38. if not(Msg.message in [WM_PAINT, WM_WINDOWPOSCHANGED]) then
  39. begin
  40. Handled := True;
  41. Exit;
  42. end;
  43. end;
  44. end;
  45. end;
  46. procedure TForm1.Button1Click(Sender: TObject);
  47. begin
  48. FlashPause := True;
  49. end;
  50. procedure TForm1.Button2Click(Sender: TObject);
  51. begin
  52. FlashPause := False;
  53. end;
  54. procedure TForm1.FormCreate(Sender: TObject);
  55. begin
  56. // 设置进程消息处理过程
  57. Application.OnMessage := AppMessage;
  58. WebBrowser1.Navigate('http://www.4399.com/flash/90302_3.htm');
  59. end;
  60. function TForm1.GetFlashHwnd: HWND;
  61. begin
  62. Result := FindWindowEx(WebBrowser1.Handle, 0, 'Shell DocObject View', nil);
  63. if Result = 0 then
  64. Exit;
  65. Result := FindWindowEx(Result, 0, 'Internet Explorer_Server', nil);
  66. if Result = 0 then
  67. Exit;
  68. Result := FindWindowEx(Result, 0, 'MacromediaFlashPlayerActiveX', nil);
  69. end;
  70. procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  71. const pDisp: IDispatch; var URL: OleVariant);
  72. begin
  73. // 等页面加载完毕再取得其中的Flash窗口句柄
  74. if pDisp = WebBrowser1.Application then
  75. FlashHwnd := GetFlashHwnd;
  76. end;
  77. end.

http://blog.csdn.net/aqtata/article/details/8788962

上一篇:CCArray(转)


下一篇:MySQL之左连接与右连接