第一次用D写程序，最简单的读取血量，竟然失败。。。求高手帮忙看看哪儿不对

yemao4587

var
  Form1: TForm1;
  Gameh:hwnd;                  //游戏窗口句柄
  GamePid:Thandle;             //进程ID
  GamehProcess:Thandle;        //进程句柄
const  //常量
  GameCaption= '诛仙2';
  GameBase=$00b269bc;
implementation
{$R *.dfm}
function GetRoleBase:integer;
var
  ptmp:integer;
  readByte:Dword;
begin
  result:=0;
  Gameh:=FindWindow(nil,GameCaption);
  GetWindowThreadProcessID(Gameh,GamePid);
  GamehProcess:=OpenProcess(windows.PROCESS_ALL_ACCESS,false,GamePid);
  ReadProcessMemory(Gamehprocess,Pointer(GameBase+$1c),@ptmp,4,readByte);
   ReadProcessMemory(Gamehprocess,Pointer(ptmp+$28),@ptmp,4,readByte);
result:=ptmp;
end;

function GetCurBlood:integer;
var
  Base:integer;
  ptmp:integer;
  readByte:Dword;
begin
  Base:=GetRoleBase;
  ReadProcessMemory(Gamehprocess,Pointer(Base+$270),@ptmp,4,readByte);
  result:=ptmp;
  end;
procedure TForm1.Timer1Timer(Sender: TObject);

begin
self.Label3.Caption:=intTostr(GetCurBlood);
end;

end.

运行程序，竟然Label3直接读出数值，游戏都还没开

这段代码是照着郁金香D教程写的，不知道看视频的时候是不是漏了什么。

一阵狂风

加上判断游戏是否打开在读取数值

yemao4587

加了
if  Gameh=0  then  form1.Close;
之后

不开游戏，程序退出，没问题。

打开游戏，读取数值，依旧是原来不开游戏读取到的那数值。。。

yemao4587

有诛仙的朋友麻烦帮莪试试，是程序问题，还是莪这里Delphi安装的时候出问题了

yemao4587

不确定。。。因为不开游戏，程序一样能运行，还能读出数值。。。

更诡异的是，莪一移动程序窗口，那数值还会改变。。。

以上代码完全模仿教程写的，应该不会有错。

GameBase=$00b269bc;   

将基址赋给GameBase

ReadProcessMemory(Gamehprocess,Pointer(GameBase+$1c),@ptmp,4,readByte);  

将基址+1C偏移，赋给ptmp

这应该没问题吧。难道Delphi里的逻辑不是这样？

莪只懂VB。看过Delphi正规教程里不教读取偏移之类的东西。。。