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

文章作者 100test 发表时间 2009:05:23 23:03:17
来源 100Test.Com百考试题网

　　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年上半年全国计算机等级考试试题答案汇总