1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var 
WindowName : integer; 
ProcessId : integer; 
ThreadId : integer; 
buf : PChar; 
HandleWindow : Integer; 
write : cardinal; 
const 
WindowTitle = 'Fenstername'; 
Address = $+Speicheradresse; z.B. $004141AE 
PokeValue = $hexadezimalwert; z.B. $8E (HEX) für 142 (DEC) 
NumberOfBytes = 4; Nummer von Bytes 
begin 
WindowName := FindWindow(nil,WindowTitle); 
If WindowName = 0 then 
begin 
MessageDlg('Game not running! Please run it and try again!', 
mtwarning,[mbOK],0); 
end; 

ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId); 
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); 
GetMem(buf,1); 
buf^ := Chr(PokeValue); 
WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write); 
FreeMem(buf); 
closehandle(HandleWindow); 
end;