让弹出式广告就地正法

   调试,却发现原来广告窗口同样具有上图的结构,这也让我的程序设计进程停滞不前,经过两个晚上的思考,我终于想到另一个API函数:GetWindowRect,它可以得到一个窗口的物理尺寸结构.马上调试,终于发现:
   1.广告窗口的WorkerA类和Shell DocObject View类的rect.top的值是相同的;
   2.正常IE窗口的WorkerA类和Shell DocObject View类的rect.top的值是不相同的;
   马上更改代码,代码如下:
   procedure TForm1.Timer1Timer(Sender: TObject);
   var
     mainHD,WorkAHD,ViewHD:THandle;
     y_workA,y_view:integer;
     rect1,rect2:TRect;
   begin
     //  Kill  AD.
     mainHD:=FindWIndowEx(0,0,'CabinetWClass',nil);
     if Mainhd<>0 then
     begin
        WorkAHD:=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:
        begin
          GetwindowRect(ViewHD,rect2);
          y_view:=rect2.top;
          if y_View-y_WorkA<5 then PostMessage(Mainhd,WM_CLOSE,0,0);
        end; 
     end;
   end;