 |
Cheat Engine
The Official Site of Cheat Engine
|
| View previous topic :: View next topic |
| Author |
Message |
slippppppppp
Grandmaster Cheater
 Reputation: 0
Joined: 08 Aug 2006
Posts: 929
|
 Posted: Sun Mar 02, 2008 7:21 pm Post subject: Delphi WPM |
 |
|
This is my procedure :
Writeln('[?] Input Address to be Written : ');
Writeln('');
readln(addyA);
addrA := (strtoint('$' + addyA));
Writeln('[?] List Bytes to Write : ');
Writeln('');
readln(bytes);
byteA := strtoint('$' + bytes);
bufA^ := chr((byteA));
NumberOfBytes := 1;
GetMem(bufA,1);
WriteProcessMemory(hProcess, ptr(AddrA), bufA, 1, Write);
Writeln(string(bufA) + ' Written to : ' + addyA ); |
|
| Back to top |
|
 |
Reak
I post too much
 Reputation: 0
Joined: 15 May 2007
Posts: 3496
|
| Posted: Mon Mar 03, 2008 12:08 am Post subject: |
|
|
Hey,
You should explain your problem :/
Well I think it does just not work.
Try this:
| Code: | var
wnd: HWND;
ProcessId: Integer;
ThreadId: Integer;
HandleWindow: Integer;
Write: Cardinal;
...
...
wnd := FindWindow(nil, nil); // <--Configure this
ThreadId := GetWindowThreadProcessId(wnd, @ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
WriteProcessMemory(hProcess, ptr(AddrA), bufA, 1, Write);
FreeMem(buf);
CloseHandle(HandleWindow); |
|
|
| Back to top |
|
|
|
|
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
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
