[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;
分享到: