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 sendemail 邮件发送单元

Delphi checklistbox 用法

Delphi写com+的心得体会

Delphi 编写服务程序的几点总结

Delphi xe android下让tmemo不自动弹出键盘

Delphi 禁止关机的代码

Delphi tstringlist的delimitedtext的空格问题

Delphi 2009 查看所有 unicode 字符

Delphi 读取文件获取指定字符串

Delphi xe7实现的登录窗体的正确用法示例

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

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