[Delphi]关闭指定窗口

直接上代码。

	procedure TForm1.btn2Click(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;