[help] Delphi fixed address: S

05/21/2011 18:53 marcelo380#1
Hello

how to appear in hp label1 of Delphi, is how?:mofo:

anyone have a source of a bot in delphi?
05/21/2011 20:42 Sᴡoosh#2
This is an example on how to do it :

Quote:
function gethp: Integer;
var
Written: cardinal;
eax: cardinal;
begin
ReadProcessMemory(PWIHandle, ptr(BaseAddr), @eax, Data, Written);
ReadProcessMemory(PWIHandle, ptr(eax + Charstruct), @eax, Data, Written);
ReadProcessMemory(PWIHandle, ptr(eax + AtmHPoffset), @Result, Data, Written);
end;
Note eax isn't the register, its just a variable name I tend to use for temporary addresses.
Also note that this is an ineffective way; Structs would be far better.

Cheers