how to bring up the hp in delphi?

[marcelo380]

How can we make delphi read through the hp of char pointers
?

[Sᴡoosh]

function THostchar.HP: TBounds;
var
  HP, HPM: Cardinal;
  eax, written, Base: cardinal;
begin

  ReadProcessMemory(Self.Handle, ptr(self.Offsets.Addresses_base_Address), @eax, 4, written);
  ReadProcessMemory(Self.Handle, ptr(eax + $1C), @eax, 4, written);
  ReadProcessMemory(Self.Handle, ptr(eax + self.Offsets.Structural_Character), @Base, 4, written);
  ReadProcessMemory(Self.Handle, ptr(Base + self.Offsets.Character_HP), @HP, 4, written);
  ReadProcessMemory(Self.Handle, ptr(Base + self.Offsets.Character_Max_HP), @HPM, 4, written);

  result.Current := HP;
  result.Max := HPM;
  Try
  result.Percent := Round((HP / HPM) * 100);
  except
  result.Percent := 0;
  End;

end;

[marcelo380]

what's wrong in my code?
thank you!

var
  H, TI, PI, W, rw: DWORD;
  eax, written, Base: cardinal;
  HP, HPM: DWORD;
begin
      H := FindWindow(nil, 'Element Client');
  if (H <= 0) then
    exit;
  try
  ReadProcessMemory(Self.Handle, ptr($00B3B24C), @eax, 4, written);   //BASE
 ReadProcessMemory(Self.Handle, ptr(eax + $1C), @eax, 4, written);
  ReadProcessMemory(Self.Handle, ptr(eax + $34), @Base, 4, written);
  ReadProcessMemory(Self.Handle, ptr(Base + $494), @HP, 4, written);   //pointer HP
  ReadProcessMemory(Self.Handle, ptr(Base + $4DC), @HPM, 4, written);  //Pointer Hp Max

  label1.Caption := IntToStr(HP);
  label2.Caption := IntToStr(HPM);


  finally

  end;

[Shareen]

Try to finish the attempted usage of H (H := FindWindow(nil, 'Element Client'), instead of using Self.Handle as process handle.

You know, something like...
H := FindWindow(nil, 'Element Client');
GetWindowThreadProcessId(H, @ProcessId);
GameHandle := OpenProcess(PROCESS_VM_READ, False, ProcessId);

where ProcessId is of type Integer;

Then use GameHandle instead of Self.Handle.

When using OpenProcess, check below link for access rights other than PROCESS_VM_READ:

[marcelo380]

It was more or less like this:

var
H, TI, PI, W, rw, GameHandle: DWORD;
eax, written, Base: cardinal;
HP, HPM: DWORD;
ProcessId: Integer;

begin
H := FindWindow(nil, 'Element Client');
GetWindowThreadProcessId(H, @ProcessId);
GameHandle := OpenProcess(PROCESS_VM_READ, False, ProcessId);
if (H <= 0) then
exit;
try
ReadProcessMemory(GameHandle, ptr($00B3B24C), @eax, 4, written); //BASE
ReadProcessMemory(GameHandle, ptr(eax + $1C), @eax, 4, written);
ReadProcessMemory(GameHandle, ptr(eax + $34), @Base, 4, written);
ReadProcessMemory(GameHandle, ptr(Base + $494), @HP, 4, written); //pointer HP
ReadProcessMemory(GameHandle, ptr(Base + $4DC), @HPM, 4, written); //Pointer Hp Max

label1.Caption := IntToStr(HP);
label2.Caption := IntToStr(HPM);


finally

end;

is something wrong?
Sorry but I am beginner hacks!

[Shareen]

Yes, something is wrong.
I'm sorry, but in the effort to reply quickly I made a mistake in the post above.
By no means did I plan to place a smilie face after "(nil, 'Element Client')". It was in fact intended to look like this:

(H := FindWindow(nil, 'Element Client');

I humbly apologize and I want to ensure you, that no winking was in fact implied at any point.

As for your code, it works.
Problem is either UAC or wrong window name. Make sure you run this thing of yours as administrator and recheck that game window doesn't happen to be named, I don't know, "Perfect World International" or something along those lines.

[marcelo380]

It worked!
Thanks to everyone who helped me