本资源提供了使用Delphi编程语言创建自定义消息框图标的详细源代码和教程。通过这些资料，开发者可以轻松地为应用程序添加更多视觉上的吸引力和功能性。
应用程序在运行过程中常常需要输出各种即时信息。Delphi 提供了多种消息对话框来满足这些需求，尽管可以使用不同的标志来自定义一个消息框，但仍无法将自己的图标放置于其中或更改其标准行为以创建自定义的消息框。然而，通过调用函数 `MessageBoxIndirect()` 可以轻松绕过这些限制。
该函数位于 Delphi 的 WINDOWS 单元中，在安装路径的 SourceRtlWin 文件夹内可以找到此文件。需要注意的是，Delphi 原始代码中的返回值类型被声明为 BOOL 类型，但实际上它的返回值应为 Integer 类型。要进行修改，请在 WINDOWS 单元中定位到该函数，并将所有涉及 `BOOL` 的地方更改为 `Integer`（共有三处需要更改）。随后，在 Delphi 安装路径的 Lib 文件夹内找到并重命名或删除 `WINDOWS.DCU` 文件，然后把已修改后的 `WINDOWS.PAS` 源代码复制到该文件夹中。
此函数仅有一个参数，类型为 TMsgBoxParams。其结构及说明如下：
```pascal
tagMSGBOXPARAMSA = packed record
cbSize: UINT; // 数据结构的长度
hwndOwner: HWND; // 所有者窗口句柄
hInstance: HINST; // 应用程序实例句柄
lpszText: PAnsiChar; // 在消息框客户区内显示的文本
lpszCaption: PAnsiChar; // 标题栏文本
dwStyle: DWORD; // 确定消息框内按钮和图符的数量及种类的 MB_标志
lpszIcon: PAnsiChar; // 来自资源文件中的图标资源名称
dwContextHelpId: DWORD; // 指定帮助文本的ID号
lpfnMsgBoxCallback: TPRMsgBoxCallback; // 当用户按下HELP按钮时调用的一个回调函数
dwLanguageId: DWORD; // 显示在按钮内文本的语言定义
end;
```
直接使用此函数较为复杂，因此可以自定义一个封装该功能的函数，并简化其使用方式。下面是一个示例代码：
```pascal
function MessageEx(lText, lCaption: PChar;
lStyle: DWORD; lIcon: PChar): Integer;
var
Msg: TMsgBoxParams;
begin
Msg.cbSize := SizeOf(Msg);
Msg.hwndOwner := Application.Handle;
Msg.hInstance := hinstance;
Msg.lpszText := lText;
Msg.lpszCaption := lCaption;
Msg.dwStyle := lStyle;
Msg.lpszIcon := lIcon;
// 其他字段设置默认值
Result := MessageBoxIndirect(Msg);
end;
```
如果希望在消息框中显示自定义图标，需要准备一个包含图标的资源文件，并将其添加到程序中。例如，在代码中使用 {$R c:mydirmyres.res} 来引用该资源文件。同时，`lStyle` 参数除了所需的 MB_ 标志外还需加入 MB_USERICON 标志，并在最后一个参数指定图标名称（从资源文件提取）。如果不需要自定义的图标，则可以将此参数设为 nil。
最后，请建议将上述自定义函数放在一个单元文件中，并将其放置于 Delphi 的搜索路径，如 Lib 文件夹下。之后只需在 uses 语句添加该单元即可直接使用新函数，非常方便。
5星
