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;