Delphi下如何在Windows事件查看器中创建层级子项并记录日志

要在「应用程序和服务日志」中创建「公司名→应用/服务」的层级结构，核心是通过注册表的嵌套键映射事件查看器的文件夹层级，具体操作步骤如下：

1. 创建公司顶级注册表项 #

• 以管理员身份打开注册表编辑器（regedit.exe），定位到路径：HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog
• 右键点击EventLog键，选择「新建→项」，命名为你的公司名称（例如MyCorp），这个键会直接对应事件查看器中的顶级文件夹。

2. 为每个应用/服务创建子日志项 #

在刚才创建的公司顶级键（如MyCorp）下，为每个需要独立日志的应用或服务创建子键，并配置必要参数：

• 右键点击公司顶级键，选择「新建→项」，命名为应用/服务名称（例如AppPayment、ServiceSync）
• 对每个子键，添加两个必填的注册表值：
  • EventMessageFile：类型为REG_EXPAND_SZ，值设置为事件消息文件路径。如果不需要自定义事件消息，可直接使用系统默认的%SystemRoot%\System32\wevtapi.dll；如果有自定义消息需求，填写你的自定义消息DLL路径。
  • TypesSupported：类型为REG_DWORD，值设置为7（二进制0111，表示支持错误、警告、信息三种事件类型）

3. 验证效果 #

关闭并重新打开事件查看器，展开「应用程序和服务日志」，即可看到以公司名命名的顶级文件夹，点击展开后就能看到你创建的各个应用/服务子日志项。

额外注意事项 #

• 所有注册表操作必须以管理员权限执行，否则会因权限不足无法创建或修改键值。
• 若使用自定义事件消息DLL，需确保DLL包含符合Windows事件日志规范的消息表资源，否则事件内容可能无法正常显示。
• 每个子日志项可独立配置日志大小、保留策略等参数，右键对应子项选择「属性」即可调整。

内容的提问来源于stack exchange，提问作者Franky Brandt