高版本Delphi勾子问题

[伟志]

在Delphi7下用的是正常的， 但是移植到Delphi2010(及以上的版本)执行到下面的代码的时候就会导致整个程序崩溃：
FHOOK := SetWindowsHookEx(WH_CALLWNDPROC, @HookDataProc, HInstance, tmpThreadID);
SendMessageTimeout(ADataGridHwnd, WM_NULL, 0, 0, SMTO_NORMAL, 3000, tmpResult); // 执行这句的时候，会导致目标进程崩溃。
一直没有找到原因在哪里，特在此请教，谢谢。分数不多了。

[伟志]

是高版本的Delphi对内存共享规则做了更改，导致在目标程序里运行代码读到共享的内存时出错。 原因找到了，问题已解决。

[蓝色光芒]

HookDataProc，这个函数有问题

[csdn_zw2014]

你好，请问最后这个共享内存问题是如何解决的？