[angvelem]

Но точнее скажет DJ PhoeniX

Код:

const
  BaseAddr : DWORD = $400000; 
  LASER    : DWORD = BaseAddr + $0056E78;
  NAMETAGS : DWORD = BaseAddr + $02E1CE;

  aLaser    : array[0..1] of Byte = ($74, 4);
  aNameTags : array[0..1] of Byte = ($75, $12);
  aNopOne   : Byte = $90;

.....

WriteProcessMemory(ProcessHandle, LASER, @aLaser, 2, 0);
WriteProcessMemory(ProcessHandle, NAMETAGS, @aNopOne, 1, 0);