请教(100分)

在钩子函数中我定义：pEvt:^EVENTMSG;<br>此语句：pEvt:=eventmsg(lParam)^;无法编译通过，<br>我查得在JournalRecordProc中lParam定义为：<br>Points to an EVENTMSG structure that contains the message to be recorded.<br>因此尝试：pEvt:=lParam;又出错误：<br>incompatible types:'Integer'and 'Pointer'<br>究竟怎样才是对的？

能把具体的程序让我看一下么，我觉得你在定义变量的时候好象用错了类型？还是。。。。

eventmsg(lParam)^;当然无法编译通过<br>pEvt本身是指针，而eventmsg(lParam)也是指针，可惜你又加了一个^就变成实例了，你<br>说还会对吗？

应这样:<br><br>var pEvt:TEVENTMSG;<br>begin<br>pEvt:=Peventmsg(lParam)^;<br><br>end;<br><br>这样你就可以这样访问它的一些属性：<br>pEvt.message<br>pEvt.paramL<br>Pevt.paramH<br>等<br><br>