大家我看看有什么错,是关于杀广告窗体的?

[laoli]

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;

[hjd_cw]

程序有什么现象？出错？无效？

[ken_henderson]

什么问题

[santwy]

我看了

[Patsy]

我运行了，没错误提示，请问你那里是怎么回事？可以和我联系:[e-mail]

[hjd_cw]

你的IE是什么版本的？
我的IE6.0 弹出的广告窗口中的类名（ClassName）好像不是你程序里写的那样。

[laoli]

我的IE是5.5,但是程序运行后,不能杀广告