如果使webbrower不弹出错误提示框!300分请教高手!(300分)

  • 主题发起人 主题发起人 iopiop
  • 开始时间 开始时间
I

iopiop

Unregistered / Unconfirmed
GUEST, unregistred user!
如果使webbrower不弹出错误提示框!300分请教高手!
 
try
//what you want to do
except
end;
 
webbrowser1.silent :=true
 
能说具体一点么,是什么情况下出现的这种情况,要达到什么状态。
 
  webbrowser1.silent :=true
  这时,如果你安装了微软的猥琐Studio中的某个程序(*),而且网页有问题的话,他会
自动进入调试网页的界面,而且你原来的程序也会暂停。这时你要修改(*)的设置,就不会
调用(*)了。
  不过,你的程序好象有时会自动退出,原因不明!!!
 
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;

 
webbrowser1.silent :=true
 
iopiop:如果还想接着讨论请定期提前自己的帖子,如果不想继续讨论请结束帖子。
 
多人接受答案了。
 
后退
顶部