码迷,mamicode.com
首页 > 其他好文 > 详细

关闭计算器

时间:2014-07-29 21:11:22      阅读:186      评论:0      收藏:0      [点我收藏+]

标签:http   os   for   div   ar   window   ef   title   

//关闭计算器
 
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   os   for   div   ar   window   ef   title   

原文地址:http://www.cnblogs.com/xe2011/p/3876071.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!