Delphi关闭指定窗口标题的窗口

2024年2月5日发(作者：)

Delphi关闭指定窗口标题的窗口

Delphi 关闭指定窗口标题的窗口

━━━━━━━━━━━━━━━━━━━━━━━━━━

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

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