РЕдактирование памяти процессов

[Dima DDM]

var
hwin:HWND;
hProcess:HWND;
PrcResult:WORD;
PID:DWORD;
s:Cardinal;
HandleWindow:integer;
 buf:PCHAR;
 write          : cardinal;
const
PokeValue=$5E5F0FF;
 Address=$02A73D91 {0094ADD{O};
 NumberOfBytes=1;
 begin

 hwin:=FindWindow(nil, 'заголовок искомой проги');
  SendMessage(hwin,WM_SETTEXT,0,lparam(LPCTSTR('Заголовок моей программы')));

 GetWindowThreadProcessid(hwin,@PID);
HandleWindow:=OpenProcess(PROCESS_ALL_ACCESS,false,PID);
 GetMem(buf,1);
 buf^:=Chr(PokeValue);
 WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);
 FreeMem(buf);
 CloseHandle(HandleWindow);
 end.     //money         0094ADDO

НЕ работает((( Что я делаю не так скажите!

[BOBAH13]

buf^:=Chr(PokeValue);

В тоже время у вас

PokeValue=$5E5F0FF;

Если я правильно понял, попробуйте так

WriteProcessMemory(HandleWindow,ptr(Address),@PokeValue,4,write);

4 - это размер, по сути sizeof(PokeValue), да и сделайте наверное PokeValue типизированным в DWORD/Cardinal.

p.s. а еще есть "дурная" тенденция у программистов, проверять возвращаемый результат после вызова каких то других функций, и соответственно реагировать на возвращаемое значение.

UPD:
Вы в курсе что запрещено дублировать топики?

[Johnson]

Сразу покажу на подводный камень такого способа: большинство игр имеет динамеческую память. И нужные Вам данные после каждого запуска будут на новом месте. Вам нужно сначала найти закономерности размещения адресов в памяти, потом найти "объект-якорь", которые всегда имеет одно и то же значение, и искомые вами данные разположены на одном и том же расстоянии от него. потом найти в памяти этот "якорь", вычислить место разположения нужных данных, и только потом изменять значение.