在WebBrowser中，怎样关闭需要关闭的URL窗口？(100分)

在WebBrowser中，怎样关闭需要关闭的URL窗口？象Netcaptor关闭黑名单那样.

procedure TForm1.Timer1Timer(Sender: TObject);
var
hwnd1:thandle;
flagslevariant;
begin
hwnd1:=findwindow(0,‘你要的地址');
if (hwnd1<>0) then
begin
showwindow(hwnd1,sw_hide);
postmessage(hwnd1,wm_close,1,0);
end ;
end;
我用这个能行的。