高版本Delphi勾子有关问题

高版本Delphi勾子问题
本帖最后由 zswleo 于 2015-04-22 10:32:11 编辑
在Delphi7下用的是正常的, 但是移植到Delphi2010(及以上的版本)执行到下面的代码的时候就会导致整个程序崩溃:
FHOOK := SetWindowsHookEx(WH_CALLWNDPROC, @HookDataProc, HInstance, tmpThreadID);
SendMessageTimeout(ADataGridHwnd, WM_NULL, 0, 0, SMTO_NORMAL, 3000, tmpResult); // 执行这句的时候,会导致目标进程崩溃。
一直没有找到原因在哪里,特在此请教,谢谢。分数不多了。
------解决思路----------------------
HookDataProc,这个函数有问题