计算机二级:禁止由MessageBox()弹出的对话框

来源:计算机等级考试    发布时间:2012-08-29    计算机等级考试视频    评论

  2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在考试大论坛 考试大在线题库
  思路: 用FindWindow找到窗口的hWnd,(可以通过窗口类名或标题),然后PostMessage(hWnd, WM_CLOSE, 0, 0);
  Windows API 提供了函数FindWindow,可以让应用程序在启动时检查自己或其他应用程序是否已经存在。该函数在Delphi中的语法为:
  function FindWindow(lpClassName: PChar, lpWindowName: PChar): HWND;
  其中,参数lpCalssName 是要查找的窗口的类的名称,参数lpWindowName是要查找的窗口的标题(Caption)。 如果找到了相应的窗口实例,将返回一个非0 的该窗口句柄的整型值,否则返回0 。
  例如:
  //弹出模态对话框
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  application.MessageBox(/'It should be closed in 5 second!/',/'My Title/');
  end;
  //因为对话框是模态的,所以为简单起见,放在一个定时器中关闭它(定时器的周期为5秒)
  procedure TForm1.Timer1Timer(Sender: TObject);
  var
  ahWnd:hWnd;
  begin
  ahwnd:=findWindow(nil,/'My Title/');
  if ahwnd <> 0 then
  PostMessage(ahWnd,WM_CLOSE, 0, 0);
  end;

  特别推荐:

  2009年9月全国计算机等级考试时间及科目预告

  2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

  2009年全国计算机等级考试报名信息汇总

  2009年NCRE考试有新变化

  2009年全国计算机等级考试大纲

  2009年上半年全国计算机二级考试试题及答案

  2009年上半年全国计算机等级考试试题答案汇总

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答