Cheat Engine :: View topic - [Delphi7]Reading Pointers and offset

Cheat Engine Forum Index

Cheat Engine
The Official Site of Cheat Engine

FAQ

Usergroups

Register

Log in to check your private messages

[Delphi7]Reading Pointers and offset

Cheat Engine Forum Index -> General programming

View previous topic :: View next topic

Author

Message

tanjiajun_34
Grandmaster Cheater

Reputation: 0

Joined: 16 Feb 2006
Posts: 786
Location: Singapore

Posted: Mon May 11, 2009 11:50 pm Post subject: [Delphi7]Reading Pointers and offset

Reply with quote

I had find guides but no avail. I can’t read them, they give me crap values.
My pointer adderess is 00AA3330 and the offset is 2C.
So how do we read it? Share the code?
Your help is much appreciated

Code:

procedure TForm1.reddotcountertimerTimer(Sender: TObject);
var
address,address2,addressoff: dword;
processhandle: thandle;
read,realvalue: dword;
check: boolean;
ProcessID:DWORD;
Process:THandle;
hProcess,HandleWindow: THandle;
begin
PidHandle := OpenProcess(PROCESS_ALL_ACCESS,False,PidId);
GetWindowThreadProcessId(HandleWindow,@ProcessID);
if Process <> 0 then
begin
address:=($00AA3330);
addressoff:=($2C);
check:=readprocessmemory(processhandle,pointer(address),@address2,4,read);
check:=readprocessmemory(processhandle,pointer(address2+addressoff),@realvalue,4,read);
Label11.Caption:=IntToStr(realvalue);
end;
end;

Last edited by tanjiajun_34 on Tue May 12, 2009 4:06 am; edited 2 times in total

Send private message

hcavolsdsadgadsg
I'm a spammer

Reputation: 26

Joined: 11 Jun 2007
Posts: 5801

Posted: Tue May 12, 2009 12:18 am Post subject:

ReadProcessMemory on 00AA3330 Add 2C to what value you got from 00AA3330

Send private message

tanjiajun_34
Grandmaster Cheater

Reputation: 0

Joined: 16 Feb 2006
Posts: 786
Location: Singapore

Posted: Tue May 12, 2009 3:52 am Post subject:

Reply with quote

Code:

procedure TForm1.reddotcountertimerTimer(Sender: TObject);
var
address,address2,addressoff: dword;
processhandle: thandle;
read,realvalue: dword;
check: boolean;
ProcessID:DWORD;
Process:THandle;
hProcess,HandleWindow: THandle;
begin
PidHandle := OpenProcess(PROCESS_ALL_ACCESS,False,PidId);
GetWindowThreadProcessId(HandleWindow,@ProcessID);
if Process <> 0 then
begin
address:=($00AA3330);
addressoff:=($2C);
check:=readprocessmemory(processhandle,pointer(address),@address2,4,read);
check:=readprocessmemory(processhandle,pointer(address2+addressoff),@realvalue,4,read);
Label11.Caption:=IntToStr(realvalue);
end;
end;

how do i edit from here?
caz i still get wierd value

Send private message

Anden100
Grandmaster Cheater

Reputation: 0

Joined: 20 Apr 2007
Posts: 668

Posted: Tue May 12, 2009 1:27 pm Post subject:

Reply with quote

Code:

procedure TForm1.reddotcountertimerTimer(Sender: TObject);
var
address,address2,addressoff: dword;
processhandle: thandle;
read,realvalue: dword;
check: boolean;
ProcessID:DWORD;
Process:THandle;
hProcess,HandleWindow: THandle;
begin
PidHandle := OpenProcess(PROCESS_ALL_ACCESS,False,PidId);
GetWindowThreadProcessId(HandleWindow,@ProcessID);
if Process <> 0 then
begin
address:=($00AA3330);
addressoff:=($2C);
check:=readprocessmemory(processhandle,pointer(address),@address2,4,read);
address2:= (address2+addressoff);
check:=readprocessmemory(processhandle,pointer(address2),@realvalue,4,read);
Label11.Caption:=IntToStr(realvalue);
end;
end;

Try this, though im not at all sure if it will work...

Send private message

Display posts from previous:

	Cheat Engine Forum Index -> General programming	All times are GMT - 6 Hours
Page 1 of 1

Jump to:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum

Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki IRC (#CEF) Twitter
Third party websites