1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  WindowName  :  integer;
  ProcessId  :  integer;
  ThreadId  :  integer;
  buf  :  PChar;
  HandleWindow  :  Integer;
  write  :  cardinal;      

  Const  WindowTitle  =  'Starcraft';  //hier einfach den namen von unserm fenster eingeben! einfach spiel starten,
          //dann alt+tab drücken und in der taskleiste einfach nachschaun welche caption
                                        //unser programm hat und diese einfach einfügen.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

const v1 = $90
begin
 WindowName  :=  FindWindow(nil,WindowTitle);
          If  WindowName  =  0  then MessageDlg('...erst spiel starten...dann trainer starten =)',  mtwarning,[mbOK],0);
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
    GetMem(buf,1);
    buf^  :=  Chr(v1);
    FreeMem(buf);
    closehandle(HandleWindow);
end;                    

1:
2:
3:
4:
5:
6:

WriteProcessMemory(HandleWindow,ptr($401F75),buf,1,write); //es wird der speicher umgeschrieben in der addresse 401F75 und es wird 1 byte geschrieben
WriteProcessMemory(HandleWindow,ptr($401F76),buf,1,write);
WriteProcessMemory(HandleWindow,ptr($401F77),buf,1,write);
WriteProcessMemory(HandleWindow,ptr($401F78),buf,1,write);
WriteProcessMemory(HandleWindow,ptr($401F79),buf,1,write);
WriteProcessMemory(HandleWindow,ptr($401F7A),buf,1,write);                    

1:

FindWindow(nil,WindowTitle);                    

1:
2:
3:

const v1 = $90  
 WindowName  :=  FindWindow(nil,WindowTitle);  
          If  WindowName  =  0  then MessageDlg('...erst spiel starten...dann trainer starten =)',  mtwarning,[mbOK],0);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

const v1 = $90  
begin  
WindowName  :=  FindWindow(nil,WindowTitle);  
If  WindowName  =  0  then MessageDlg('...erst spiel starten...dann trainer starten =)',  mtwarning,[mbOK],0) else begin
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);  
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);  
    GetMem(buf,1);  
    buf^  :=  Chr(v1);  
    FreeMem(buf);  
    closehandle(HandleWindow);  
end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure WriteValues;
var
  c : Cardinal;
begin  
  c:=FindWindow(nil,'Starcraft'); //Get WindowHandle
  if c=0 then
  begin 
    MessageDlg('...erst spiel starten...dann trainer starten =)',mtwarning,[mbOK],0);  
    Exit;
  end;
  GetWindowThreadProcessId(c,@c); //Get ProcessID and ignore ThreadID
  c:=OpenProcess(PROCESS_ALL_ACCESS,False,c);  //Get ProcessHandle
  WriteProcessMemory(c,Pointer($401F76),#144#144#144#144#144#144,6,nil);
  CloseHandle(c);  
end;                    

1:
2:
3:
4:
5:

if linkeTaste.gedrueckt=True then
       begin
        Schiessen;
        MunnitionAbziehen; //zB in der Addresse 123456AB und hat den wert 1283
       end;                    

1:
2:
3:
4:
5:

if linkeTaste.gedrueckt=True then
       begin
        Schiessen;
        macheNichts; //wir weisen 123456AB den wert 9090 zu (also 90 für nop wie im tut erklärt)
       end;                    

1:
2:
3:
4:
5:
6:
7:

Shortint  –128..127                 signed 8-bit
Smallint  –32768..32767             signed 16-bit
Longint   –2147483648..2147483647   signed 32-bit
Int64     –2^63..2^63–1             signed 64-bit
Byte      0..255                    unsigned 8-bit
Word      0..65535                  unsigned 16-bit
Longword  0..4294967295             unsigned 32-bit                    

1:

WriteProcessMemory(HandleWindow,ptr($10AC0EBD),buf,1,write);                    

1:
2:
3:
4:

WriteProcessMemory(HandleWindow,ptr($10AC0EBD),buf,1,write);
WriteProcessMemory(HandleWindow,ptr($10AC0EBD),buf,1,write);
WriteProcessMemory(HandleWindow,ptr($10AC0EBD),buf,1,write);
WriteProcessMemory(HandleWindow,ptr($10AC0EBD),buf,1,write);                    

1:

WriteProcessMemory(HandleWindow,ptr($10AC0EBD),buf,4,write);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure WriteValues;
var
  c : Cardinal;
  buf: pchar;
begin
  c:=FindWindow(nil,'Unreal Tournament'); //Get WindowHandle
  buf := #144#144;
  if c=0 then
  begin
    MessageDlg('...erst spiel starten...dann trainer starten =)',mtwarning,[mbOK],0);
    Exit;
  end;
  GetWindowThreadProcessId(c,@c); //Get ProcessID and ignore ThreadID
  c:=OpenProcess(PROCESS_ALL_ACCESS,False,c);  //Get ProcessHandle
  WriteProcessMemory(c,Ptr($10133c14),buf,2,write);
  CloseHandle(c);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure WriteValues;
var
  c, write : Cardinal;
  buf: pchar;
begin
  c:=FindWindow(nil,'Unreal Tournament'); //Get WindowHandle
  buf := #144#144;
  if c=0 then
  begin
    MessageDlg('...erst spiel starten...dann trainer starten =)',mtwarning,[mbOK],0);
    Exit;
  end;
  GetWindowThreadProcessId(c,@c); //Get ProcessID and ignore ThreadID
  c:=OpenProcess(PROCESS_ALL_ACCESS,False,c);  //Get ProcessHandle
  WriteProcessMemory(c,Ptr($10133c14),buf,2,write);
  CloseHandle(c);
end;                    

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:
29:
30:
31:
32:

var
Form1: TForm1;
WindowName: integer;
ProcessId: integer;
ThreadId: integer;
buf: PChar;
HandleWindow: Integer;
write: cardinal;

Const
WindowTitle = 'MineSweeper';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
v1 = $90;
begin
WindowName  :=  FindWindow(nil,WindowTitle);
If  WindowName  =  0  then showmessage('Bitte starten Sie zuerst das Spiel' + #13 + 'bevor Sie den Trainer aktivieren!') else begin
ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
buf^  :=  Chr(v1);
WriteProcessMemory(HandleWindow,ptr($1002FF5),buf,4,write);
FreeMem(buf);
closehandle(HandleWindow);
showmessage('Die Zeit wurde eingefroren!');
end;
end;                    

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

procedure WriteProcMem(procWndTitle: string;CodeAddr:integer; numberNops:byte);
var
  c, write : Cardinal;
  buf: pchar;
  i: byte;
begin
  c:=FindWindow(nil,pchar(procWndTitle)); //Get WindowHandle
  if c=0 then
  begin
    MessageDlg('...erst spiel starten...dann trainer starten =)',mtwarning,[mbOK],0);
    Exit;
  end;
  buf := '';
  for i := 1 to numbernops do  buf := buf + $90;
  GetWindowThreadProcessId(c,@c); //Get ProcessID and ignore ThreadID
  c:=OpenProcess(PROCESS_ALL_ACCESS,False,c);  //Get ProcessHandle
  WriteProcessMemory(c,Ptr(CodeAddr),buf,numberNops,write);
  CloseHandle(c);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  writeprocMem('Unreal Tournament',$10133c14,2);
end;                    

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

procedure WriteProcMem(procWndTitle: string;CodeAddr:integer; numberNops:byte);
var
  c, write : Cardinal;
  buf: pchar;
  i: byte;
begin
  c:=FindWindow(nil,pchar(procWndTitle)); //Get WindowHandle
  if c=0 then
  begin
    MessageDlg('...erst spiel starten...dann trainer starten =)',mtwarning,[mbOK],0);
    Exit;
  end;
  buf := '';
  for i := 1 to numbernops do  buf := buf + $00;
  GetWindowThreadProcessId(c,@c); //Get ProcessID and ignore ThreadID
  c:=OpenProcess(PROCESS_ALL_ACCESS,False,c);  //Get ProcessHandle
  WriteProcessMemory(c,Ptr(CodeAddr),buf,numberNops,write);
  CloseHandle(c);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  writeprocMem('Minesweeper',$100579C,4);
end;                    

1:

for i := 1 to numbernops do  buf := buf + $00;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure WriteProcMem(procWndTitle: string;CodeAddr:integer; Buffer: pchar; BufLen:byte);
var
  c, write : Cardinal;
  i: byte;
begin
  c:=FindWindow(nil,pchar(procWndTitle)); //Get WindowHandle
  if c=0 then
  begin
    MessageDlg('...erst spiel starten...dann trainer starten =)',mtwarning,[mbOK],0);
    Exit;
  end;
  GetWindowThreadProcessId(c,@c); //Get ProcessID and ignore ThreadID
  c:=OpenProcess(PROCESS_ALL_ACCESS,False,c);  //Get ProcessHandle
  WriteProcessMemory(c,Ptr(CodeAddr),buffer,buflen,write);
  CloseHandle(c);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  writeprocMem('Minesweeper',$100579C,#40#00#00#00,4);
end;                    

1:

writeprocMem('Minesweeper',$100579C,#60#00#00#00,4);                    

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:

procedure WriteProcMem(procWndTitle: string;CodeAddr:integer; numberNops:byte);
var  
  c, write : Cardinal;  
  buf: pchar;  
  i: byte;  
begin  
  c:=FindWindow(nil,pchar(procWndTitle)); //Get WindowHandle
  if c=0 then  
  begin
    showmessage('Bitte zuerst das Spiel und dann den Trainer starten');
    Application.Terminate;
    end;
  buf := '';  
  for i := 1 to numbernops do  buf := buf + $90;  
  GetWindowThreadProcessId(c,@c); //Get ProcessID and ignore ThreadID  
  c:=OpenProcess(PROCESS_ALL_ACCESS,False,c);  //Get ProcessHandle  
  WriteProcessMemory(c,Ptr(CodeAddr),buf,numberNops,write);  
  CloseHandle(c);
  showmessage('Geld eingefroren!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WriteProcMem('Counter-Strike Source', $2205AE10, 6);//Normalerweise 4 aber nur 6 funzt 8 auch net
end;                    

1:

2205AE10 mov[ecx+0xD7C],edx                    

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:

procedure WriteProcMem(procWndTitle: string;CodeAddr:integer; numberNops:byte);  
var    
  c, write : Cardinal;    
  buf: pchar;    
  i: byte;    
begin    
  c:=FindWindow(nil,pchar(procWndTitle)); //Get WindowHandle  
  if c=0 then    
  begin  
    showmessage('Bitte zuerst das Spiel und dann den Trainer starten');  
    Application.Terminate;  
    end;  
  buf := '';    
  for i := 1 to numbernops do  buf := buf + $90;    
  GetWindowThreadProcessId(c,@c); //Get ProcessID and ignore ThreadID    
  c:=OpenProcess(PROCESS_ALL_ACCESS,False,c);  //Get ProcessHandle    
  WriteProcessMemory(c,Ptr(CodeAddr),buf,numberNops,write);    
  WriteProcessMemory(c,Ptr(CodeAddr),buf,numberNops,write);    
  CloseHandle(c);  
  showmessage('Geld eingefroren!');  
end;  

 
procedure TForm1.FormCreate(Sender: TObject);  
begin  
WriteProcMem('Counter-Strike Source', $2205AE10, 2);
end;                    

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long 
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long 
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long 
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 

Public Function ConvertNumberToString(Number As Double) As String 
Dim b1, b2, b3, b4 
If Number < 256 Then ConvertNumberToString = Chr(Number): Exit Function 
If Number < 65536 Then 
ConvertNumberToString = Chr(Number And 255) & Chr((Number And 65280) / 256) 
Exit Function 
End If 
b4 = Number And 255: Number = Int(Number / 256) 
b3 = Number And 255: Number = Int(Number / 256) 
b2 = Number And 255: Number = Int(Number / 256) 
b1 = Number And 255: Number = Int(Number / 256) 
ConvertNumberToString = Chr(b4) & Chr(b3) & Chr(b2) & Chr(b1) 
End Function 

Private Sub cmd01_Click() 
Dim hwnd As Long, ProcessID As Long, pHandle As Long 
hwnd = FindWindow(vbNullString, "SIMS") 
If hwnd = 0 Then 
lbl01.Caption = "TS not found" 
Exit Sub 
End If 
GetWindowThreadProcessId hwnd, ProcessID 
pHandle = OpenProcess(&H1F0FFF, False, ProcessID) 
If pHandle = 0 Then 
lbl01.Caption = "No process handle found!" 
Exit Sub 
End If 

WriteProcessMemory Handle, &H6F406FCA, ConvertNumberToString(&H33), 1, 0& 
WriteProcessMemory Handle, &H6F406FC9, ConvertNumberToString(&H41), 1, 0& 
WriteProcessMemory Handle, &H6F406FCE, ConvertNumberToString(&H46), 1, 0& 
WriteProcessMemory Handle, &H6F406FCF, ConvertNumberToString(&H33), 1, 0& 
WriteProcessMemory Handle, &H6F406FD0, ConvertNumberToString(&HF6), 1, 0& 
WriteProcessMemory Handle, &H6F406FCB, ConvertNumberToString(&HC9), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A3, ConvertNumberToString(&H40), 1, 0& 
WriteProcessMemory Handle, &H6F148E58, ConvertNumberToString(&HEB), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A4, ConvertNumberToString(&H33), 1, 0& 
WriteProcessMemory Handle, &H6F149D3C, ConvertNumberToString(&HEB), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A3, ConvertNumberToString(&H40), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A5, ConvertNumberToString(&HC0), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A6, ConvertNumberToString(&H42), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A7, ConvertNumberToString(&H33), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A8, ConvertNumberToString(&HD2), 1, 0& 
WriteProcessMemory Handle, &H6F148E58, ConvertNumberToString(&HEB), 1, 0& 

Close Handle, pHandle 
lbl01.Caption = "Go get her ;-)" 
End Sub 

Private Sub cmd02_Click() 
Dim hwnd As Long, ProcessID As Long, pHandle As Long 
hwnd = FindWindow(vbNullString, "SIMS") 
If hwnd = 0 Then 
lbl01.Caption = "TS not found" 
Exit Sub 
End If 
GetWindowThreadProcessId hwnd, ProcessID 
pHandle = OpenProcess(&H1F0FFF, False, ProcessID) 
If pHandle = 0 Then 
lbl01.Caption = "No process handle found!" 
Exit Sub 
End If 

WriteProcessMemory Handle, &H6F2A22A3, ConvertNumberToString(&H42), 1, 0& 
WriteProcessMemory Handle, &H6F406FCE, ConvertNumberToString(&H70), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A6, ConvertNumberToString(&H52), 1, 0& 
WriteProcessMemory Handle, &H6F148E58, ConvertNumberToString(&H75), 1, 0& 
WriteProcessMemory Handle, &H6F406FC9, ConvertNumberToString(&H48), 1, 0& 
WriteProcessMemory Handle, &H6F149D3C, ConvertNumberToString(&H75), 1, 0& 

CloseHandle pHandle 
lbl01.Caption = "Hm, she's hating you again (deactivated)" 
End Sub                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

WriteProcessMemory Handle, &H6F406FCA, ConvertNumberToString(&H33), 1, 0& 
WriteProcessMemory Handle, &H6F406FC9, ConvertNumberToString(&H41), 1, 0& 
WriteProcessMemory Handle, &H6F406FCE, ConvertNumberToString(&H46), 1, 0& 
WriteProcessMemory Handle, &H6F406FCF, ConvertNumberToString(&H33), 1, 0& 
WriteProcessMemory Handle, &H6F406FD0, ConvertNumberToString(&HF6), 1, 0& 
WriteProcessMemory Handle, &H6F406FCB, ConvertNumberToString(&HC9), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A3, ConvertNumberToString(&H40), 1, 0& 
WriteProcessMemory Handle, &H6F148E58, ConvertNumberToString(&HEB), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A4, ConvertNumberToString(&H33), 1, 0& 
WriteProcessMemory Handle, &H6F149D3C, ConvertNumberToString(&HEB), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A3, ConvertNumberToString(&H40), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A5, ConvertNumberToString(&HC0), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A6, ConvertNumberToString(&H42), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A7, ConvertNumberToString(&H33), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A8, ConvertNumberToString(&HD2), 1, 0& 
WriteProcessMemory Handle, &H6F148E58, ConvertNumberToString(&HEB), 1, 0&                    

1:
2:
3:
4:
5:
6:

WriteProcessMemory Handle, &H6F2A22A3, ConvertNumberToString(&H42), 1, 0& 
WriteProcessMemory Handle, &H6F406FCE, ConvertNumberToString(&H70), 1, 0& 
WriteProcessMemory Handle, &H6F2A22A6, ConvertNumberToString(&H52), 1, 0& 
WriteProcessMemory Handle, &H6F148E58, ConvertNumberToString(&H75), 1, 0& 
WriteProcessMemory Handle, &H6F406FC9, ConvertNumberToString(&H48), 1, 0& 
WriteProcessMemory Handle, &H6F149D3C, ConvertNumberToString(&H75), 1, 0&                    

1:
2:
3:
4:

0041A736  8B8308020000  MOV     EAX,[EBX+00000208]; verschiebt die Lebensenergie nach EAX
0041A73C  D983CC000000  FLD     REAL4 PTR [EBX+000000CC] 
0041A742  D8B3C8000000  FDIV    REAL4 PTR [EBX+000000C8]
0041A748  A3A46C7800    MOV     [00786CA4],EAX; verschiebt die Lebensenergie in die Anzeigeadresse                    

1:
2:
3:
4:
5:
6:
7:

:map32 %Fenstername%
Owner         Obj Name  Obj#  Address        Size      Type
%Internername%.text     0001  017F:00401000  0004BE10  CODE  RO
%Internername%.data     0002  0187:0044D000  00006718  IDATA RW
%Internername%.bss      0003  0187:00454000  0035CDB4  UDATA RW
%Internername%.idata    0004  0187:007B1000  000014F0  IDATA RW
%Internername%.rsrc     0005  0187:007B3000  0000095C  IDATA RO SHARED                    

1:
2:
3:
4:

0041A736  8B8308020000  MOV     EAX,[EBX+00000208]
0041A73C  D983CC000000  FLD     REAL4 PTR [EBX+000000CC]
0041A742  D8B3C8000000  FDIV    REAL4 PTR [EBX+000000C8]
0041A748  A3A46C7800    MOV     [00786CA4],EAX                    

1:
2:
3:
4:
5:

0041A736  E9C5970300    JMP     00453F00
0041A73B  90            NOP
0041A73C  D983CC000000  FLD     REAL4 PTR [EBX+000000CC]; hierhin müssen wir nachher zurück
0041A742  D8B3C8000000  FDIV    REAL4 PTR [EBX+000000C8]
0041A748  A3A46C7800    MOV     [00786CA4],EAX                    

1:
2:
3:

00453F00  8B8308020000  MOV     EAX,[EBX+00000208]
00453F06  891D303F4500  MOV     [00453F30],EBX
00453F0C  E92B68FCFF    JMP     0041A73C                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure WriteValues;
var
  c, write : Cardinal;
  buf: pchar;
begin
  c:=FindWindow(nil,'NFS Underground 2'); //Get WindowHandle
  buf := #144#144;
  if c=0 then
  begin
    MessageDlg('You have to run the game first !',mtwarning,[mbOK],0);
    Exit;
  end;
  GetWindowThreadProcessId(c,@c); //Get ProcessID and ignore ThreadID
  c:=OpenProcess(PROCESS_ALL_ACCESS,False,c);  //Get ProcessHandle
  WriteProcessMemory(c,Ptr($547156),buf,4,write);                    // Diese 4 habe ich schon durch alles von  1-8 ersetzt !
  CloseHandle(c);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WriteValues;
end;                    

1:
2:
3:
4:
5:

asm
  mov eax, [$00401111]     <- fixe adresse, an der steht immer $6152C50 die kann aber auf jedem PC anders sein
  mov eax, [eax]           // $6152C50  <- hier wird mit deiner adresse weitergerechnet
  add [eax], $10           // $10 addieren
end;                    

1:
2:
3:
4:
5:

asm  
  mov eax, [$00401111]     <- fixe adresse, an der steht immer $6152C50 die kann aber auf jedem PC anders sein  
  mov eax, [eax]           // $6152C50  <- hier wird mit deiner adresse weitergerechnet  
  add [eax], $10           // $10 addieren  
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

..
var
s: String;
..
begin
..
s:= '$123456';
WriteProcessMemory(HandleWindow,Pointer(s),buf,1,write);
..                    

1:
2:
3:
4:
5:

..
begin
..
WriteProcessMemory(HandleWindow,Ptr($123456),buf,1,write);
..                    

1:
2:
3:
4:
5:

var i:integer;
begin
  i:=$123456;
  WriteProcessMemory(HandleWindow,Pointer(i),buf,1,write);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

..  
var  
s: String;  
..  
begin  
..  
s:= '$123456';  
WriteProcessMemory(HandleWindow,Pointer(strtoint(s)),buf,1,write);  
..                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function WriteProcess(Title: String; Address, PokeValue:Integer): Boolean;
begin
Result := True;
WindowName  :=  FindWindow(nil,PCHAR(Title));
          If  WindowName  =  0  then Result := False;
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
    GetMem(buf,1);
    randomize;
    buf^  :=  Chr(PokeValue);
 WriteProcessMemory(HandleWindow,ptr(Address),buf,1,write);
 FreeMem(buf);
 closehandle(HandleWindow);
end;

...

WriteProcess('Diablo II', $9F6D17, $01);
WriteProcess('Diablo II', $9F6D18, $00);
WriteProcess('Diablo II', $9F6D19, $00);

...                    

1:
2:
3:
4:
5:
6:
7:

...

WriteProcess('Diablo II', $9F6D17, $90);
WriteProcess('Diablo II', $9F6D18, $90);
WriteProcess('Diablo II', $9F6D19, $90);

...                    

1:
2:
3:
4:
5:
6:
7:

004C873D   660FBEC8             movsx cx,al
004C8741   663BD9               cmp bx,cx
004C8744   7E09                 jle short 0x004C874F
004C8746   C6866403000000       mov byte ptr [esi+0x364],0x0
004C874D   EB08                 jmp short 0x004C8757
004C874F   2AC3                 sub al,bl
004C8751   888664030000         mov [esi+0x364],al                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

004C873D    82BEDC0200005A      cmp byte ptr [esi+0x2DC],0x5A
004C8744    7F0B                jg short 0x004C8751
004C8746    2AC3                sub al,bl
004C8748    3C00                cmp al,0x0
004C874A    7F05                jg short 0x004C8751
004C874C    B000                mov al,0x0
004C874E    90                  nop
004C874F    90                  nop
004C8750    90                  nop                    

1:

    WriteProcessMemory(HandleWindow,ptr($4609F0),PChar(chr(7) + chr(161) + chr(32)),3,write);                    

1:

    WriteProcessMemory(HandleWindow,ptr($4609F0),PChar(chr(7) + chr(161) + chr(32)),Edit1.text,write);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
begin
buf := '99';
wolle := '102';
hackPid := findprocess('Programm');
HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,hackPid);
    WriteProcessMemory(HandleWindow,ptr($4609F0),wolle,4,write);
    closehandle(HandleWindow);
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,hackPid);
   WriteProcessMemory(HandleWindow,ptr($4609EC),buf,4,write);
    closehandle(HandleWindow);
end;                    

1:
2:
3:
4:

var s: pchar;
begin
  s:=#144#144#144#144; // buffer aus dezimalwerten erstellen, darf aber keine #0 drin vorkommen (wegen pchar)
  WriteProcessMemory(HandleWindow,ptr($4609F0),s,length(s),write);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function CarToPChr(Car: Cardinal) : PChar;
VAR
  TChar: array[0..3] of Char;
begin
    TChar[0] := Char(Lo(Car));    
    TChar[1] := Char(Lo(Car shr 8));
    TChar[2] := Char(Lo(Car shr 16));
    TChar[3] := Char(Hi(Car));
    Result := @TChar;
end;                    

1:
2:
3:
4:

var value,write: cardinal;
begin
value := $FFFFFFFF;
writeprocessmemory(HandleWindow,ptr($4609F0),@value,4,write);                    

1:
2:
3:
4:
5:

var bla: array[0..7] of char;
begin
  pcardinal(@bla[0])^ := $FFFFFFFF;
  pcardinal(@bla[4])^ := $FFFFFFFF;
end;                    

1:

writeprocessmemory(HandleWindow,ptr($4609F0),ptr(value),4,write);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

const
  ProcessName = 'DeineDatei.exe'; // Bitte entsprechend ändern
var
  hSnapshot: THandle;
  hProcess: THandle;
  ProcessEntry: TProcessEntry32;
  Schleife: BOOL;
  pID: Integer;
begin
  hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ProcessEntry.dwSize := Sizeof(ProcessEntry);
  Schleife := Process32First(hSnapshot, ProcessEntry);
  while Schleife do
  begin
    if (CompareText(ProcessEntry.szExeFile, ProcessName) = 0) then
      pID := ProcessEntry.th32ProcessID; // <-- Das ist die ProzessID
    Schleife := Process32Next(hSnapshot, ProcessEntry);
  end;
  CloseHandle(hSnapshot);
  hProcess := OpenProcess(PROCESS_ALL_ACCESS, FALSE, pID); // <-- Das ist dann das gesuchte Handle
//(...)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
const v1 = $90;
begin  
WindowName  :=  FindWindow(nil,WindowTitle);  
If  WindowName  =  0  then MessageDlg('...erst spiel starten...dann trainer starten =)',  mtwarning,[mbOK],0)
else
   begin
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);  
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);  
    GetMem(buf,1);  
    buf^  :=  Chr(v1);
    WriteProcessMemory(HandleWindow,ptr($4A50444),buf,1,write);
    WriteProcessMemory(HandleWindow,ptr($4A50445),buf,1,write);
    WriteProcessMemory(HandleWindow,ptr($4A50446),buf,1,write);
    WriteProcessMemory(HandleWindow,ptr($4A50447),buf,1,write);
    FreeMem(buf);  
    closehandle(HandleWindow);
   end;
end;                    

1:

WriteProcessMemory(HandleWindow, ptr($401F75), buf, 1, write);                    

1:
2:
3:
4:
5:

var
  Value: Cardinal;
begin
  Value := $FFFFFFFF; // <-- Hier kommt der gewünschte Betrag im Hexadezimal-System hin
  WriteProcessMemory(hWindow, ptr($4A50444), @Value, 4, Write);                    

1:

4ff9d5  mov [edi+0x4],eax                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

  Const  WindowTitle  =  'Command & Conquer Generäle - Die Stunde Null';


  implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const v1 = $90;
begin
 WindowName  :=  FindWindow(nil,WindowTitle);
          If  WindowName  =  0  then MessageDlg('',  mtwarning,[mbOK],0);
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
    GetMem(buf,1);
    buf^  :=  Chr(v1);
    WriteProcessMemory(HandleWindow,ptr($4FF9D5),buf,1,write); //Habe schon alles getestet anstatt der 1 eine 2,3,4 und 5
    FreeMem(buf);
    closehandle(HandleWindow);
end;                    

1:
2:
3:
4:

var buf: integer;
begin
    buf := $90909090;
    WriteProcessMemory(HandleWindow,ptr($4FF9D5),@buf,3,write); //Habe schon alles getestet anstatt der 1 eine 2,3,4 und 5                    

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

var
  Form1: TForm1;
  WindowName  :  integer;
  ProcessId  :  integer;
  ThreadId  :  integer;
  buf  :  PChar;
  HandleWindow  :  Integer;
  write  :  cardinal;

  Const  WindowTitle  =  'HoI 2';

  implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const v1 = $90;
begin
    WindowName  :=  FindWindow(nil,WindowTitle);
          If  WindowName  =  0  then MessageDlg('...erst spiel starten...dann trainer starten =)',  mtwarning,[mbOK],0);
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
    GetMem(buf,1);
        buf^  :=  Chr(v1);
              WriteProcessMemory(HandleWindow,ptr($480802),buf,1,write); //es wird der speicher umgeschrieben in der addresse 401F75 und es wird 1 byte geschrieben
              WriteProcessMemory(HandleWindow,ptr($480803),buf,1,write);
              WriteProcessMemory(HandleWindow,ptr($480804),buf,1,write);
              WriteProcessMemory(HandleWindow,ptr($480805),buf,1,write);
              WriteProcessMemory(HandleWindow,ptr($480806),buf,1,write);
              WriteProcessMemory(HandleWindow,ptr($480807),buf,1,write);
        FreeMem(buf);
    closehandle(HandleWindow);
    MessageDlg('Geld ist eingefroren',  mtwarning,[mbOK],0);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 Value1: Cardinal;
 Value2: Cardinal;
begin
    Value1 := $D99EF41B;
    Value2 := $0000;
    WindowName  :=  FindWindow(nil,WindowTitle);
          If  WindowName  =  0  then MessageDlg('...erst spiel starten...dann trainer starten =)',  mtwarning,[mbOK],0);
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
    GetMem(buf,1);
                      WriteProcessMemory(HandleWindow,ptr($480802),@Value1,4,write); //es wird der speicher umgeschrieben in der addresse 401F75 und es wird 1 byte geschrieben
                      WriteProcessMemory(HandleWindow,ptr($480806),@Value2,2,write);
        FreeMem(buf);
    closehandle(HandleWindow);
    MessageDlg('Geld ist nicht mehr eingefroren',  mtwarning,[mbOK],0);
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var bla: array[0..5] of byte = ($90,$90,$90,$90,$90,$90);
// bzw = ($D9,$9E,$F4,$1B,$00,$00)

procedure TForm1.Button1Click(Sender: TObject);
begin
    WindowName  :=  FindWindow(nil,WindowTitle);
          If  WindowName  =  0  then MessageDlg('...erst spiel starten...dann trainer starten =)',  mtwarning,[mbOK],0);
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
              WriteProcessMemory(HandleWindow,pointer($480802), @bla[0],6,write);
    closehandle(HandleWindow);
    MessageDlg('Geld ist eingefroren',  mtwarning,[mbOK],0);
end;                    

1:
2:
3:
4:
5:

var old: DWord;
begin
VirtualProtectEx(processhandle, pointer(@addresse{$00400F87}), size{22}, PAGE_EXECUTE_READWRITE, old);
WriteProcessMemory(processhandle...);
VirtualProtectEx(processhandle, pointer(@addresse{$00400F87}), size{22}, old, old);                    

1:
2:
3:
4:
5:

var mem: pointer;
begin
mem := VirtualAllocEx(processhandle, nil, size, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
WriteProcessMemory(processahndle,...);
VirtualFreeEx(processhandle, mem, 0, MEM_RELEASE);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
    hProcess: THandle; //Prozesshandle des Spiels
    wert:integer;  //wert des ausgelesenen speichers
    BytesRead: DWORD;
    adresse:pointer;  //adresse, die ausgelesen werden soll

...

adresse:=ptr($9D903C);

ReadProcessMemory(hProcess,adresse,@wert,sizeof(wert), BytesRead );

...                    

1:
2:
3:
4:
5:

ReadProcessMemory(hProcess, adresse, @wert, SizeOf(wert), BytesRead);  // originaladresse lesen
adresse := Ptr(wert + $60);  // Wert + 96dez
ReadProcessMemory(hProcess, adresse, @wert, SizeOf(wert), BytesRead);  // eben berechnette adresse auslesen
CloseHandle(hProcess);
Edit1.Text := IntToStr(wert);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function WriteMemory(Adress:Pointer; Buffer:array of char):Bool;
begin
        try
                Result:=False;
                VirtualProtectEx(handlewindow, Pointer(Adress), Length(Buffer), PAGE_EXECUTE_READWRITE, old);
                If (WriteProcessMemory(handleWindow, Pointer(Adress), @Buffer, Length(Buffer), BytesWritten)
                and (BytesWritten = Length(Buffer)))
                then Result:=True else Result:=False;
        finally
        VirtualProtectEx(Handlewindow, Pointer(Adress), Length(Buffer), old, old);
        end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

Adress:= Ptr($00400400);
                pcardinal(@buffer[0])^ := $8B4154A3;
                pcardinal(@buffer[4])^ := $00054000;
                pcardinal(@buffer[8])^ := $C3000000;
                pcardinal(@buffer[12])^:= $00000000;
                pcardinal(@buffer[16])^:= $00000000;

                If WriteMemory(Adress, Buffer) = True then Memo1.Lines.Add('OK') else Memo1.Lines.Add('Err');