Delphi 创建新的MessageBox窗口前，先关掉之前已经创建好的

本文整理自网络，侵删。

 
创建新的MessageBox窗口前，先关掉之前已经创建好的
procedure TForm2.Timer1Timer(Sender: TObject);
var
  h:HWND;
begin
  h := FindWindow(nil,PAnsiChar('123'));
  if h > 0 then
  begin<br>    //PostMessage(h,WM_SYSCOMMAND, SC_CLOASE,0);//现在这样写法不管用
    SendMessage(h,WM_SYSCOMMAND, SC_CLOSE,0);
  end;
  if Application.messageBOX(PChar('是否继续？'), PChar('123'), MB_OKCANCEL + MB_ICONINFORMATION + MB_DEFBUTTON2 + MB_TOPMOST) = IDCANCEL then
  begin
    Exit;
  end
end;

来源：https://www.cnblogs.com/OSKnown/p/9628237.html
 

相关阅读 >>

Delphi 检测鼠标键盘多久没有活动

indy tidtcpclient 的一个用法上要留意的问题，以及 http

Delphi 获取进程列表及相关信息

重新组织编写Delphi的md2、md4、md5类

Delphi 获取星期的函数

Delphi 判断一个颜色是否是亮色

Delphi 的内存操作函数(3): 给结构体指针分配内存

Delphi 如何删除动态数组的指定元素

Delphi 保存hotkey1.hotkey值

Delphi返回一个汉字的unicode编码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 创建新的MessageBox窗口前，先关掉之前已经创建好的