关闭计算器

//关闭计算器

 

procedure TForm1.Button1Click(Sender: TObject);

var

  HWndCalculator: HWnd;

begin

  HWndCalculator := FindWindow(nil, '计算器'); // 查找计算器句柄

  if HWndCalculator <> 0 then

    SendMessage(HWndCalculator, WM_CLOSE, 0, 0); //关闭计算器

end;

来自为知笔记(Wiz)