Импорт данных из памяти, прибавление к ним значение и запись

[GRA1N]

Доброго времени суток, уважаемые форумчане
Недавно начал изучать делфи. Столкнулся с проблемой, просто ступор.
Пишу програмку. Суть:

Есть приложение. Необходимо при нажатии кнопки обратиться к приложению, взять из его памяти некоторую информацию (из определенного адреса), записать его, прибавить к нему какое-то значение и снова записать.

Сделать запись определенного значения в память получается.

Но мне нужно, чтобы к существующему значению прибавлялась циферка, например, значение + 10 и потом уже вписывалось в память. Но постоянно выходят какие-то ошибки. Изнасиловал гуглю, он мне ничего по теме не выдал. Логику действий представляю, но как это должно выглядеть на делфи - ума не приложу.


Проблемный код:

procedure TForm1.Button4Click(Sender: TObject);
begin
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
ReadProcessMemory(HandleWindow, ptr(Address2), buf, 1, dwReaded);
si:=buf;
FreeMem(buf);
GetMem(buf,1);
xwx:=si;
yyy:=(xwx+xxx);
buf^ := Chr(yyy);
WriteProcessMemory(HandleWindow,ptr(Address2),buf,NumberOfBytes,write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;

Код приложения в целом:

unit FH;

interface

uses
  Windows, SysUtils, Classes, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Button3: TButton;
    Button4: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
Form1: TForm1;
WindowName : integer;
ProcessId : integer;
ThreadId : integer;
buf,Result: PChar;
HandleWindow : Integer;
si : string;
yyy : integer;
xwx : integer;
write : cardinal;
dwReaded : DWord;
Const
WindowTitle1 = 'ИМЯ_ОКНА_ПРИЛОЖЕНИЯ';
Address = $04692F6D;
PokeValue1 = $C9;
PokeValue2 = $E9;
NumberOfBytes = 1;
Address2 = $04692F4E;
xxx = $9;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WindowName := FindWindow(nil,WindowTitle1);
// WindowName := FindWindow(nil,WindowTitle2);

ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);

GetMem(buf,1);
buf^ := Chr(PokeValue1);
WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);

GetMem(buf,1);
buf^ := Chr(PokeValue2);
WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
ReadProcessMemory(HandleWindow, ptr(Address2), buf, 1, dwReaded);
si:=buf;
FreeMem(buf);
GetMem(buf,1);
xwx:=si;
yyy:=(xwx+xxx);
buf^ := Chr(yyy);
WriteProcessMemory(HandleWindow,ptr(Address2),buf,NumberOfBytes,write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;

end.

Пробовал по-всякому, постоянно компилятор выдает какие-то ошибки. А если не выдает - то ошибки выдает само приложение(


Заранее благодарен за ответ

[Вавел из ГМТУ]

Недавно начал изучать делфи. Столкнулся с проблемой, просто ступор.

К примеру я уже давно пишу в Делфи на любительском уровне и ничего из кода не понял

Попробуйте погуглить каждую вызываемую процедуру из "проблемного" куска и разобраться кто и что должен возлвращать...
Если вы взялись за такую программу, то должны понимать что должно получаться после выполнения каждой процедуры.. Ну а дальше брекпоинты, рассуждения, анализ данных и пр.

[GRA1N]

Попробуйте погуглить каждую вызываемую процедуру из "проблемного" куска и разобраться кто и что должен возлвращать...
Если вы взялись за такую программу, то должны понимать что должно получаться после выполнения каждой процедуры.. Ну а дальше брекпоинты, рассуждения, анализ данных и пр.

Ну программа на самом деле элементарная. Просто у меня в данный момент ступор
По функции ReadProcessMemory я в гугле не нашел практически ничего, за что можно ухватиться(
Мне очень нужна подсказка, чтобы сдвинуться с мертвой точки

[Вавел из ГМТУ]

Информация по функциям найти не проблема.. Самое сложное это понять что там написали

http://vsokovikov.narod.ru/New_MSDN_...cessmemory.htm

http://vsokovikov.narod.ru/New_MSDN_...cessmemory.htm

Попытайтесь понять какие имено ошибки возникает. Для того чтоб чтото отремонтировать, нужно выяснить что сломалось...

[BaronTreep]

Вот пример чтения/записи в своём процессе:

type TBuf = array [ 1 .. 1024 ] of byte;

function WriteMem(Addr : DWORD; Buf : TBuf) : DWORD;
begin
  Result := 0;
  WriteProcessMemory(GetCurrentProcess(), ptr(Addr), @Buf, sizeof(Buf), Result);
end;

function ReadMem(Addr : DWORD; var Buf : TBuf) : DWORD;
begin
  Result := 0;
  ReadProcessMemory(GetCurrentProcess(), ptr(Addr), @Buf, sizeof(Buf), Result);
end;

Просто замените GetCurrentProcess на хэндл процесса, который, как я вижу , вы уже нашли. Незабудьте ещё проверки сделать на вилидность ))

[GRA1N]

Информация по функциям найти не проблема.. Самое сложное это понять что там написали

http://vsokovikov.narod.ru/New_MSDN_...cessmemory.htm

http://vsokovikov.narod.ru/New_MSDN_...cessmemory.htm

Попытайтесь понять какие имено ошибки возникает. Для того чтоб чтото отремонтировать, нужно выяснить что сломалось...

Вот пример чтения/записи в своём процессе:

Огромное спасибо за ответы *ушел тестить*