Lecture et écriture en mémoire

var
  rbrWnd: HWND;               // Handle de la fenêtre
  dwProcessId: DWORD;         // ID du processus à modifier
  hProcess: HANDLE;           // Handle du processus à modifier
  OldProtect: DWORD;          // Récupération de la protection précédente 
  damageBlockAddress: DWORD;  // Calcul de l'adresse des dégats
  value: DWORD;               // Valeur que l'on écrira dans le processus distant
  firstAddress: DWORD;        // On va déterminer les autres adresses à partir de celle-ci  
  bytesWritten: DWORD;        // Nombre d'octets écrits par WriteProcessMemory
  leftDoorAddress: DWORD;     // Adresse des dégats de la portière gauche
begin
  // Recherche de la fenêtre
  rbrWnd:= FindWindow('D3D Window', nil);
  if rbrWnd = 0 then RaiseLastOSError;

  // Récupération de l'ID du processus à partir du handle de fenêtre
  GetWindowThreadProcessId(rbrWnd, dwProcessId);

  // Récupération d'un handle sur le processus à partir de son ID
  hProcess:= OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessId);
  if hProcess = 0 then RaiseLastOSError;

  // Lecture de 4 octets à l'adresse $008EF660
  address:= $008EF660;
  VirtualProtectEx(hProcess, Pointer(address), 4, PAGE_READWRITE, OldProtect);
  ReadProcessMemory(hProcess, Pointer(address), @damageBlockAddress, 4, nil);

  // L'adresse des dégats se trouve à l'offset $620 de l'adresse située à l'adresse $008EF660.
  // On vient de récupérer l'adresse située à l'adresse $008EF660.
  // Il faut lui ajouter $620.
  damageBlockAddress:= damageBlockAddress + $620;

  // On récupère l'adresse des dégats  
  VirtualProtectEx(hProcess, Pointer(damageBlockAddress), 4, PAGE_READWRITE, OldProtect);
  ReadProcessMemory(hProcess, Pointer(damageBlockAddress), @damageBlockAddress, 4, nil);

  // Pour ouvrir la porte, il faut écrire 0 à l'adresse des dégats + $36C
  value:= 0;
  leftDoorAddress:= damageBlockAddress + $36C;

  VirtualProtectEx(hProcess, Pointer(leftDoorAddress), 4, PAGE_READWRITE, OldProtect);
  WriteProcessMemory(hProcess, Pointer(leftDoorAddress), @value, 4, bytesWritten);

  CloseHandle(hProcess);
end;