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

转载于 2018-09-11 15:54:00 发布 · 103 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/OSKnown/p/9628237.html

本文提供了一个使用Delphi实现的示例代码，通过发送系统命令来关闭指定标题的窗口，并展示了如何使用消息框来确认用户的操作意愿。

procedure TForm2.Timer1Timer(Sender: TObject);
var
  h:HWND;
begin
  h := FindWindow(nil,PAnsiChar('123'));
  if h > 0 then
  begin
    //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