//关闭计算器
procedure TForm1.Button1Click(Sender: TObject);
var
HWndCalculator: HWnd;
begin
HWndCalculator := FindWindow(nil, ‘计算器‘); // 查找计算器句柄
if HWndCalculator <> 0 then
SendMessage(HWndCalculator, WM_CLOSE, 0, 0); //关闭计算器
end;
关闭计算器,布布扣,bubuko.com
关闭计算器
原文：http://www.cnblogs.com/xe2011/p/3876071.html
