webbrowser1.silent :=true能使 webBrower不弹出多数的对话框,但如果浏览的网页有教本错误
,会自动打开教本调试的程序,所以必须将ie选项中的“禁止脚本调试”设置成true。
另外连接超时时的错误信息框用webbrowser1.silent :=true无法屏蔽,下面的程序可以
关闭弹出的错误信息框。
procedure TFormMain.WMActivate(var Msg: TWMActivate);
var
S: String;
wnd: HWND;
I: Integer;
begin
If Msg.Active=0 then
begin
wnd := Msg.ActiveWindow;
I := GetWindowTextLength(wnd);
SetLength(S, I + 1);
GetWindowText(Wnd, PChar(S), I + 1);
if Pos('Internet Explorer', S)>0 then
begin
// Sendmessage(wnd,WM_CLOSE,0,0);
Sendmessage(wnd,WM_KEYDOWN,VK_RETURN,0);
// showMessage('检测到弹出窗口!');
end;
end;
end;