纯汇编显示人物信息.txt

procedure TForm1.Timer1Timer(Sender: TObject);

var

  hpmin,hpmax:DWORD;

begin

    asm

      mov eax,[$924E0C]

      mov eax,[eax+$1C]

      mov eax,[eax+$20]

      mov ecx,[eax+$450]

      mov hpmin,ecx

      mov ecx,[eax+$478]

      mov hpmax,ecx

    end;

  self.Label5.Caption:=inttostr(hpmin)+'/'+inttostr(hpmax); //显血

end;

通过 Wiz 发布