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

    twnd := findWindow(nil, CAPTION);
    GetWindowThreadProcessId(twnd,@tpid);
    thprocess := OpenProcess(PROCESS_ALL_ACCESS, False, tpid);
    rr := WriteProcessMemory(thprocess, Ptr($00A3386F),@by, 1,fool);
    if not rr then
    messagebox(0, PChar(
      Format('wnd:%d|pid:%d|hprocess:%d',[twnd, tpid, thProcess])
      ), nil,0);					

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

var
  OldProtect: DWORD;
begin
  VirtualProtectEx(thprocess, Ptr($00A3386F), 1, PAGE_READWRITE, @OldProtect);
  asm
    mov [$00A3386F], $82;
  end;
  VirtualProtectEx(thprocess, Ptr($00A3386F), 1, OldProtect, @OldProtect);
end;