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:

const
  WindowTitle = 'xyz';
  Addr0 = $0046AFC5;

var
  WIN : integer;
  PID : integer;
  TID : integer;
  HND : integer;
  WRT : cardinal;
  POKE: integer;


procedure TForm1.Button3Click(Sender: TObject);
begin
     WIN := FindWindow(nil, WindowTitle);
     TID := GetWindowThreadProcessId(WIN,@PID);
     HND := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
     
     // Beispiel Code
     poke := 1234;
     WriteProcessMemory(HND,ptr(Addr0),@POKE,Bytes,WRT);
     FreeMem(BUF);
     closehandle(HND);

end;					

1:
2:
3:
4:

var
  addr: array[1..20] of int64;
  Poke: array[1..20] of int64;
  Bytes: array[1..20] of Integer;					

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 TForm1.Button4Click(Sender: TObject);
begin

Addr[1] := $0000123;
Poke[1] := $123123123;
Bytes[1] := 0;

Addr[2] := $00000815;
Poke[2] := $4711;
Bytes[2] := 0;

Addr[3] := $00123123;
Poke[3] := $123123123;
Bytes[3] := 0;                                           

    WIN := FindWindow(nil, WindowTitle);
    TID := GetWindowThreadProcessId(WIN,@PID);
    HND := OpenProcess(PROCESS_ALL_ACCESS,False,PID);

    WriteProcessMemory(HND,ptr(Addr[1]),@Poke[1],Bytes[1],WRT);
    WriteProcessMemory(HND,ptr(Addr[2]),@Poke[2],Bytes[2],WRT);
    WriteProcessMemory(HND,ptr(Addr[3]),@Poke[3],Bytes[3],WRT);

    closehandle(HND);
end;