Delphi 应用 passthru 实现防火墙

Delphi的passthru来自VC的FireWallDemo翻译，FireWallDemo本坛有下载，全部使用DeviceIOControl函数，该Delphi代码能进行拦截,XP，Win7环境通过，详见Button1的Click事件。驱动如何安装详见FireWallDemo说明。目前该代码无法实现FireWallDemo的日志功能。遗憾的是，我想拦截的ARP功能不在FireWallDemo里，哪位知道如何使用，请点拨一下。没分了，请施舍1分。