本文整理自网络,侵删。
Delphi 关闭指定窗口标题的窗口
━━━━━━━━━━━━━━━━━━━━━━━━━━
我在程序中想每隔30秒自动关闭指定窗口标题的窗口。如IE窗口,脚本提示错误窗口,上网时的下载工具提示等等
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 xe ttask.waitforall/waitforany 一不小心会造成内存泄露
Delphi 如何使用sendmessage发送后台组合键消息(ctrl+xxx)
Delphi winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid
Delphi fdconnection取得excel工作表名
更多相关阅读请进入《Delphi》频道 >>