好像不是很难的问题！但是我很着急！！！

Question

我想把 WH_JOURNALRECORD 中的得到的信息保存到文件中，我是这么做的：
var f:file of EVENTMSG;
...
write(f,pEventMSG(lParam)^);
...
编译没有错，但是运行时出错，如果
write(f,lparam);则通过不了编译！
应该怎么办呀？？？？帮帮我！！！
还有如果想取出来该怎么写呀？？

Answer 1

哦！好象是说类型不匹配！
他要的是EVENTMSG结构类型的数据！！！帮帮我好吗？

Answer 2

按理说Write对于结构和取结构指针的内容的写都没有问题的
问题不在这里吧

Answer 3

直接用文本这样存看看
write(f,format('hwnd=%x',[TCWPSTRUCT(PCWPSTRUCT(lParam)^).hwnd]))

Answer 4

是这样
write(f,format('hwnd=%x',[TEventMsg(PEventMsg(lParam)^).hwnd]))