function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL; stdcall;
var
ClassName: Array[0…255] of char; // this holds the class name of our child windows
begin
GetClassName(hWnd,ClassName,255);
if ClassName=‘MacromediaFlashPlayerActiveX’ then
begin
showmessage(inttostr(hWnd));
end;
Result:=TRUE;
end;
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
WndChild: THandle;
begin
WndChild := FindWindowEX(TWebBrowser(ASender).Handle, 0, ‘Shell DocObject View’, nil);
WndChild := FindWindowEX(WndChild, 0, ‘Internet Explorer_Server’, nil);
EnumChildWindows(WndChild,@EnumerateChildWindows,0);
end;
我本来是想获取所有FLASH的句柄(包括框架中的),但是上面的代码只能获取到主页面中的FLASH句柄,不能获取到框架页中的句柄
还有一个
interface
uses
Windows, Messages,ShockwaveFlashObjects_TLB ……;
type
……
procedure FormClose(Sender: TObject; var Action: TCloseAction);
//右键事件声明处:
procedure mymessage(var msg:tmsg;var handled:boolean);
……
private
{ Private declarations }
public
{ Public declarations }
end;
procedure TVer.mymessage(var msg: tmsg; var handled: boolean);
begin
if msg.message=wm_Rbuttondown then handled:=true;
end;