本文整理自网络，侵删。
var
wDoc:IHTMLDocument2;
wc:IHTMLWindow2;
Dispatch:IDispatch;
begin
//遍历emWb:TEmbeddedWB的Frames
if emWb <> nil then
begin
wDoc := ((emWb.Document as IHTMLDocument2));
if Assigned(wDoc) then
begin
for i=0 to wDoc.frams.length -1 do //遍历
begin
Dispatch:= wd.frames.item(0);
Dispatch.QueryInterface(IHTMLWindow2,wc); //获得子frame的IHTMLWindow2对象
wc.execScript('logout()','JavaScript');//执行js
end;
end;
end;
end; 相关阅读 >>
Delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）
更多相关阅读请进入《Delphi》频道 >>
