暂停和屏蔽右键网页中的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