为Windows11更新Application.Messagebox的外观

Question

有没有一种方法可以使Win11中的Application.MessageBox()对话框看起来更现代化？也许是通过创建一个清单文件或者其他东西来让经典桌面应用看起来更新？

Answer 1

简而言之，不是。

Application.MessageBox()调用Win32 MessageBox() API，这是一个旧的对话框。

要获得新的外观，您需要使用Windows Vista中引入的Win32 Task Dialog API，而不是使用MessageBox()。

现代的Delphi版本有一个TTaskDialog组件和(Vcl.)Dialogs单元中的TaskMessageDlg...()包装器函数。但这些在Delphi7中不存在，因此您必须手动定义和导入Task Dialog API类型和函数。