有一台笔记本,刚装的windows2000,IE6,然后装了google toolbar,上网,弹出式窗口屏蔽了,所有的新开窗口的链接也打不开了,卸载goole toolbar,重装IE都不行。无论按shift,还是右键“在新窗口中打开”都无法打开链接。请问屏蔽弹出式窗口是什么原理?谢谢
解决方案 »
- 关于Xe2 里操作excel的方法
- 如何实现tstringgrid的按某标题排列?
- 请教各位,如何控制局域网内的一台客户端关机????
- 强大的作者软件自主发布管理系统!欢迎广大软件作者前来发布您的软件作品! http://www.softpie.com/
- 怎样实现向数据库添加查询图片?
- 麻烦各位大侠帮我看看dbgrid多选问题,100分,不够再加,感激涕零!
- 请问动态生成的数据库控件tdbtext,为何显示出来是[memo],我已经指定了datasource 和datafield属性啊
- 请问delphi7中DBGrid中最左边的箭头以及左上角图标如何修改?
- 欢迎使用我开发的通用查询系统
- 如何取得本机的IP地址?
- delphi中如何取得Excel总的数据集的个数
- 一个在Listbox中加入图片的问题??大家过年好!
另外按着ctrl键也可以。
屏蔽窗口的原理是新弹开窗体好像用到了newwindow2过程,只要对他处理,
就可以防止或者允许弹开窗体,我没具体作过,也不是太清楚。
所以仅供参考。
调试,却发现原来广告窗口同样具有上图的结构,这也让我的程序设计进程停滞不前,经过两个晚上的思考,我终于想到另一个API函数:GetWindowRect,它可以得到一个窗口的物理尺寸结构.马上调试,终于发现:1.广告窗口的WorkerA类和Shell DocObject View类的rect.top的值是相同的;2.正常IE窗口的WorkerA类和Shell DocObject View类的rect.top的值是不相同的;马上更改代码,代码如下:procedure TForm1.Timer1Timer(Sender: TObject);varmainHD,WorkAHD,ViewHD:THandle;y_workA,y_view:integer;rect1,rect2:TRect;begin// Kill AD.mainHD:=FindWIndowEx(0,0,'CabinetWClass',nil);if Mainhd<>0 thenbeginWorkAHD:=FindWindowEx(Mainhd,0,'WorkerA',nil);GetwindowRect(WorkAHD,rect1);y_workA:=rect1.top;ViewHD:=FindWindowEx(mainHD,0,'Shell DocObject View',nil);if viewHD<>0 then ////注1:beginGetwindowRect(ViewHD,rect2);y_view:=rect2.top;if y_View-y_WorkA<5 then PostMessage(Mainhd,WM_CLOSE,0,0);end;end;end;程序的主要核心部分我已经给出来了,至于其它的,像:如何把程序添加到启动菜单,最小化到任务栏中等等,这方面的介绍很多,我就不多言了.本程序在Windows98SE和Delphi5.0下调试通过.注1:其实资源管理器的类名也是"CabinetWClass",但它不具有"Shell DocObject View".如果不判断这一点,那么运行程序后,你连资源管理器也打不开了.