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

WindowName   :=  FindWindow(nil,Fenstertitel);
ThreadId     :=  GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow :=  OpenProcess(PROCESS_ALL_ACCESS,True,ProcessId);
              VirtualProtectEx(HandleWindow,pointer($00400408), 40, PAGE_EXECUTE_READWRITE, old);
              WriteProcessMemory(HandleWindow,pointer($00C3441E), @Patched[0],6,write);
              WriteProcessMemory(HandleWindow,pointer($00400408), @CC1[0],32,write);
              WriteProcessMemory(HandleWindow,pointer($00400428), @CC2[0],32,write);
              WriteProcessMemory(HandleWindow,pointer($00400448), @CC3[0],33,write);					

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

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, True, 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:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

Uses
..., Tlhelp32, ...;
var
  hSnapshot: THandle;
  hProcess: THandle;
  ProcessEntry: TProcessEntry32;
  Schleife: BOOL;
  pID: Integer;
  Const ProcessName = 'TS3EP01.exe';

Procedure TForm1.Hotkeyused( Var msg: TWMHotkey ) ;
   Begin
    If msg.hotkey = 1 Then 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;
      Schleife := Process32Next(hSnapshot, ProcessEntry);
  end;
  CloseHandle(hSnapshot);
  hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, pID);
      VirtualProtectEx(hProcess,pointer($00400408), 40, PAGE_EXECUTE_READWRITE, old);
      WriteProcessMemory(hProcess,pointer($00C3441E), @Patched[0],6,write);
      WriteProcessMemory(hProcess,pointer($00400408), @CC1[0],32,write);
      WriteProcessMemory(hProcess,pointer($00400428), @CC2[0],32,write);
      WriteProcessMemory(hProcess,pointer($00400448), @CC3[0],33,write);
  closehandle(hProcess);
  End;
end;					

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

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);
  pid := -1;
  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);
  if pid >= 0 then
    hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, 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:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

var
  Form3: TForm3;
  ModuleEntry: TModuleEntry32;
  ProcessEntry: TProcessEntry32;
  hSnapshot, hProcess, SnapMod: THandle;
  DLLBaseAddy: PByte;
  Schleife, FindDLLBase : Boolean;
  pID: Integer;
  write:  cardinal;
  old: DWORD;
  CC: array [0..7] of byte = ($90, $FF, $26, $EA, $C5, $62, $78, $34);
  Reset: array [0..7] of byte = ($00, $00, $00, $00, $00, $00, $00, $00);

  Const Processname = 'Cheat Engine.exe';
        DLLName = 'DBGHelp.dll';

procedure TForm3.Button1Click(Sender: TObject);
begin
  hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ProcessEntry.dwSize := Sizeof(ProcessEntry);
  Schleife := Process32First(hSnapshot, ProcessEntry);
  pID := -1;
    while Schleife do begin
      if (CompareText(ProcessEntry.szExeFile, ProcessName) = 0) then
      pID := ProcessEntry.th32ProcessID;
      Schleife := Process32Next(hSnapshot, ProcessEntry);
    end;
    if pID >= 0 then begin
      hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, pID);
      SnapMod:= CreateToolhelp32Snapshot(TH32CS_Snapmodule, pID);
      ModuleEntry.dwSize := Sizeof(ModuleEntry);
      FindDLLBase:= Module32First (SnapMod, ModuleEntry);
      while FindDLLBase do begin
        if (CompareText(Moduleentry.szModule, DLLName) =0) then
        DLLBaseAddy := ModuleEntry.modBaseAddr;
        FindDLLBase := Module32Next(SnapMod, ModuleEntry);
      end;
     CloseHandle(hSnapshot);
      VirtualProtectEx(hProcess,pointer(DLLBaseAddy+$0163AB), 5, PAGE_EXECUTE_READWRITE, old);
      WriteProcessMemory(hProcess,pointer(DLLBaseAddy+$0163AB), @CC[0],8,write);
      CloseHandle(hprocess);
    end;
end;