本文整理自网络，侵删。
我在程序中想每隔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则可以获取子窗口的。
相关阅读 >>
Delphi firemonkey 学习笔记 �c tpopup 控件的使用
Delphi stringgrid 加载excel表格文件内容自动宽度
Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能
Delphi2010 关于record类型rtti反射的用途和方法
更多相关阅读请进入《Delphi》频道 >>
