盒子论坛 v2.1

首先添加一个Timer控件,创建一个过程
private
    { Private declarations }
     procedure KillChildWindows(hand: HWND);
代码如下:
procedure TForm1.KillChildWindows(hand: HWND);
var
  h: HWND;
  s: Array[0..255] of char;
  IsPopWindow: Bool;
begin
  IsPopWindow:=True;
  h:=GetWindow(hand,GW_child);
  while h>0 do
  begin
    GetClassName(h, s, 256);
    if (StrPas(s)='WorkerA') or (StrPas(s)='WorkerW') then
    If IsWindowVisible(h) then
      IsPopWindow:=False;
    h:=GetWindow(h,GW_HWNDNEXT);
  end;
  if IsPopWindow then
    PostMessage(hand,WM_CLOSE,0,0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  h: HWnd;
  Text: array [0..255] of char;
begin
  h:=GetWindow(Handle, GW_HWNDFIRST);
  while h <> 0 do
  begin
    if GetWindowText(h, @Text, 255)>0 then
    if GetClassName(h, @Text, 255)>0 then
    if (StrPas(Text)='CabinetWClass') or (StrPas(Text)='IEFrame') then
      KillChildWindows(h);
    h:=GetWindow(h, GW_HWNDNEXT);
  end;
end;

试试看~~广告是不是少多了?你可以让程序在后台执行,就看你怎么发挥了,呵呵~~
不过不能监视 myie浏览器,它会不停的试图将它关闭-_-~~
----------------------------------------------
幼儿园的时候我不谈恋爱，因为不知道什么是贼
小学的时候我不谈恋爱，因为知道没有贼心也没有贼胆
初中的时候我不谈恋爱，因为有贼胆没贼心
高中的时候我不谈恋爱，因为有贼心没贼胆
大学的时候我不谈恋爱，因为有了贼心，也有了贼胆，贼却没了

信息

登陆以后才能回复