[已解决]武林过滤物品VB和DELPHI代码 , VB成功,DELPHI总是失败

weijin

过滤物品时把这个地址要写入0,

VB这样写成功
WriteProcessMemory hProcess, ByVal meax + pn * 4, 0, 4, 0 '将地址删除，物品消失,

Delphi这几种写法都无效,物品都不消失,不知道为什么
第一种失败
WriteProcessMemory(hProcess,pointer(meax+pn*4),0,4,num);
第二种失败
WriteProcessMemory(hProcess,pointer(meax+pn*4),nil,4,num);
第三种还是失败
WriteProcessMemory(hProcess,pointer(meax+pn*4),$0,4,num);

高手能指点一下吗?谢谢

weijin

已解决,参考了lewei2000代码如下
WriteProcessMemory(PHND,pointer(BaseWu+i*4), @My0, 4,Num); //擦掉物品
            ReadProcessMemory(PHND,Pointer(BaseWu1+$14),@WuN,4,Num); //地面物体数量
            WuN:=WuN-1;
            WriteProcessMemory(PHND,pointer(BaseWu1+$14), @WuN, 4, Num);//修正地面物体数量

蓝雨

楼主,是你让我深深地理解了'人外有人,天外有天'这句话.谢谢你!