怎么用全局快捷键关闭程序调出的计算器？

Question

在程序中通过快捷键调出了计算器，无论焦点是否在计算器上使用某一快捷键都能使其关闭，怎么实现？

Answer 1

关闭已开启的外部应用程序procedure TForm1.Button2Click(Sender: TObject);varhWndClose: HWnd; file://存储指定的外部应用程序窗口句柄str: String; file://存储指定的外部应用程序的窗口名beginstr := InputBox('提示','请输入应用程序名：',''); file://获取要关闭的应用程序窗口名if str <> '' then beginfile://根据窗口名查找要关闭的窗口句柄hWndClose := FindWindow(nil, PChar(str));if hWndClose <> 0 then file://如果查找成功，则发送消息，关闭指定的窗口SendMessage(hWndClose,WM_CLOSE,0,0);else file://否则，给出提示信息ShowMessage('没找到指定的应用程序，所以无法关闭！');end;end;