Delphi 关闭指定窗口

我在程序中想每隔30秒自动关闭指定窗口标题的窗口。如IE窗口，脚本提示错误窗口，上网时的下载工具提示等等  

最简单的方法:

procedure TForm1.Button1Click(Sender: TObject);
var
QQHWND:HWND;
begin
qqhwnd:=findwindow(nil,'QQ用户登录');
ShowWindow(QQHWND,sw_HIDE);   // 这里是隐藏指定窗口,同理, 将此代码放在TImer事件中即可达到效果

end;

//////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure    TForm1.Button2Click(Sender:    TObject);   
   var   
       hWndClose: HWnd;    //存储指定的外部应用程序窗口句柄   
       str: String;    //存储指定的外部应用程序的窗口名   
   begin   
       str := inputBox('提示','请输入应用程序窗口標題：','');    //获取要关闭的应用程序窗口名   
       if   str <> ''   then   
           begin   
               hWndClose := FindWindow(nil, PChar(str));    //根据窗口名查找要关闭的窗口句柄   
               if   hWndClose <> 0    then    ////如果查找成功，则发送消息，关闭指定的窗口   
                   SendMessage(hWndClose,WM_CLOSE,0,0)   
               else    //否则，给出提示信息   
                   ShowMessage('没找到指定的应用程序，所以无法关闭！');   
         end;   
   end;

SendMessage(FindWindow(nil,'str'),WM_CLOSE,0,0);   //精简就是这样
    

用FindWindow或者FindWindowEX都可以获取窗口具柄，findwindow是顶级窗口句柄不获取字窗口的，findwindowex则可以获取子窗口的。