Delphi вылетает игра при изменении значения адреса

[Гость nikemmi]

При изменении значения адреса через Delphi в 4 байта в игре, игра вылетает, но если изменять через cheat engine, то все нормально. Прошу помощи.

var
h:HWnd;
gmg: dword;
ProcessId, hProcess: Integer;
BC : cardinal;
begin
h:=FindWindow(nil, PChar('Игра'));
gmg:=2425393296 ;
GetWindowThreadProcessId(h,@ProcessId);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
WriteProcessMemory(hProcess, ptr($0074542B), @gmg, 1, BC);

[DenkA003]

блин ты хоть поисковиком пользовался ?

по форому лазил ?

вот парочка тем помогут тебе )) ++ там есть исходники!!

http://goo.gl/U6ySjh

http://goo.gl/WpOzhm

http://goo.gl/yYXoqg

http://goo.gl/D9turc

http://goo.gl/IKl4lT

В следующий раз пользуйся поисковиком ))

[Xipho]

Обьясняю. Большинство современных игр будут вылетать, если перед записью не выставить новые параметры защиты на область, которая должна быть перезаписана. Для этого служит функция VirtualProtectEx.

[Гость nikemmi]

Всем спасибо, проблему решил. Указал какое значение на какое нужно заменять

[ArxLex]

При изменении значения адреса через Delphi в 4 байта в игре, игра вылетает, но если изменять через cheat engine, то все нормально. Прошу помощи.

var
h:HWnd;
gmg: dword;
ProcessId, hProcess: Integer;
BC : cardinal;
begin
h:=FindWindow(nil, PChar('Игра'));
gmg:=2425393296 ;
GetWindowThreadProcessId(h,@ProcessId);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
WriteProcessMemory(hProcess, ptr($0074542B), @gmg, 1, BC);

Если открыл, то не забудь закрыть