读内存地址（送分啦）

Question

我要得到$5432100加$21再加$140后的地址（不只值），请问怎么写？ 

Answer 1

function ReadMemory(var buf:pointer;StartAddr,nSize:DWORD):Boolean;
var
  lpNumberOfBytes: DWORD;
begin
  Result:=False;
  buf := AllocMem(nSize);
  if(not ReadProcessMemory(GameHandle, Pointer(StartAddr), buf, nSize, lpNumberOfBytes))
        then
  begin
     showmessage('读数据出错，可能是指定的地址不存在.');
     Exit;
  end;  Result:=True;
end;你把读内存的地址,和长度传进去,就可以了,