如何暂停网页中的Flash？原理很简单，就是屏蔽Flash的消息即可。屏蔽右键也可以通过此方法
直接贴代码吧，加了注释，很容易就能懂了
新建工程，加一个WebBrowser，再加两个按钮。Flash 11.7.700.169 测试通过
[delphi] view plain copy
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
WebBrowser1: TWebBrowser;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
function GetFlashHwnd: HWND;
public
end;
var
Form1: TForm1;
// Flash组件窗口句柄
FlashHwnd: HWND = 0;
// 控制“暂停”的开关变量
FlashPause: Boolean = False;
implementation
{$R *.dfm}
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
// 处理Flash窗口消息
if (FlashHwnd <> 0) and (Msg.hwnd = FlashHwnd) then
begin
if FlashPause then
begin
// 仅仅保留窗口重绘相关消息，其余的消息全部过滤掉
if not(Msg.message in [WM_PAINT, WM_WINDOWPOSCHANGED]) then
begin
Handled := True;
Exit;
end;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FlashPause := True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
FlashPause := False;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// 设置进程消息处理过程
Application.OnMessage := AppMessage;
WebBrowser1.Navigate('http://www.4399.com/flash/90302_3.htm');
end;
function TForm1.GetFlashHwnd: HWND;
begin
Result := FindWindowEx(WebBrowser1.Handle, 0, 'Shell DocObject View', nil);
if Result = 0 then
Exit;
Result := FindWindowEx(Result, 0, 'Internet Explorer_Server', nil);
if Result = 0 then
Exit;
Result := FindWindowEx(Result, 0, 'MacromediaFlashPlayerActiveX', nil);
end;
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
// 等页面加载完毕再取得其中的Flash窗口句柄
if pDisp = WebBrowser1.Application then
FlashHwnd := GetFlashHwnd;
end;
end.
http://blog.csdn.net/aqtata/article/details/8788962