Delphi WriteProcessMemory mit Offsets zum Pointer

[Nuclear-Ping]

Delphi-Quellcode:

procedure p_memorywrite(value,size:integer;adresse:dword);
begin
    GetMem(buf,1);
    ThreadId  :=  GetWindowThreadProcessId(WindowName,@ProcessId);
    HandleWindow  :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
    try
      buf^  :=  Chr(value);
      WriteProcessMemory(HandleWindow,ptr(adresse),buf,size,write);
    finally
      FreeMem(buf);
      closehandle(HandleWindow);
    end;
end;