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则可以获取子窗口的。

相关阅读 >>

Delphi保存读取utf-8的文本文件

Delphi qq表情的实现

Delphi 创建圆形或椭圆形窗体

Delphi �o置系�y�r�g

Delphi 将tbitmap与tgpimage转换

Delphi 提高进程自身权限

Delphi 之 标签组件(tlabel组件)

Delphi 图像识别技术(逐行扫描识别)

Delphi xe7中的运行时设置android应用程序屏幕方向

Delphi 生成全球唯一标识符

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...