FarmHitman

Ага, с правами админа заработала, только не много в другую сторону Надо код проверять... Ладно, спасибо за помощь, дальше придется с кодом мучаться...

Так вообще даже у меня не работает

Я просто код копировал с 1 поста этой темы, не заметил 1 в GetMem(buf,1);

Если я правильно понимаю надо 1 поменять на 4 ? или вообще убрать эту часть кода?

GetMem(buf,1);

buf^ := Chr(PokeValue);

If buf = 0 then

begin

MessageBox(win,'Error!'+#13+#10+

'Buffer is empty.','Ошибка',MB_OK or MB_ICONINFORMATION);

end;

На выделенную строчку ругается... Operator not applicable to this operand type

  WindowName := FindWindow(nil,WindowTitle);
     If WindowName = 0 then
       begin
        MessageBox(win,'Игра должна быть запущенна до трейнера.'+#13+#10+
                       '    Запустите её,а потом трейнер','Ошибка',MB_OK or MB_ICONINFORMATION);
       end;

  ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
  If ThreadID := 0 
then begin 
       ShowMessage('ThreadID.');
end;
  HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
if HandleWindow = 0
then begin
Show Message('HandleWindow');
end;

Как я понял эту часть надо сделать так, а дальше как сделать? Можно код плиз?

GetMem(buf,1);

buf^ := Chr(PokeValue);

WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);

FreeMem(buf);

Я написал 2 примера кода, ни 1 из них на указанных ОС не работают.

п. 1 не подходит, не понял пункты 3, 5 и 6 а п.4 не думаю что не успевает, если только на некоторых ОС не работает, антивируса нету.

var
WindowName: integer;
ProcessId: integer;
ThreadId: integer;
HandleWindow: Integer;
write: cardinal;
buf: dword;
const
WindowTitle = 'Name';

 Address = $007B5678;
NumberOfBytes = 4;
begin
WindowName := FindWindow(nil,WindowTitle);
If WindowName = 0 then begin
MessageDlg('Игра должна быть запущена до трейнера. Запустите ее, потом трейнер', mtwarning,[mbOK],0);
end;
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
buf:=$0;
WriteProcessMemory(HandleWindow, ptr(address), @buf, 4, write);
end;

Можно и в таком варианте:

var
WinClass : TWndClass;
hInst: HWND;
Handle: HWND;
Msg: TMSG;
hFont: HWND;
win: hwnd;
WindowName: integer;
ProcessId: integer;
ThreadId: integer;
buf: PChar;
HandleWindow: Integer;
write: cardinal;
 const
WindowTitle= 'Name';
Address= $007B5678;
PokeValue= $0;
NumberOfBytes= 4;
begin
  WindowName := FindWindow(nil,WindowTitle);
     If WindowName = 0 then
       begin
       	MessageBox(win,'Игра должна быть запущенна до трейнера.'+#13+#10+
                       '    Запустите её,а потом трейнер','Ошибка',MB_OK or MB_ICONINFORMATION);
       end;

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

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

У большинства людей работает.

Не работает на: Win 7 x32 Максимальная, Win 7 x64 Ultimate

Работает на: Win XP SP2 x32, Win XP SP3 x32, Win 7 x64 Домашняя, Win 7 x64 Максимальная...

Адреса были проверены через CheatEngine, соответственно на компьютере где не работает.

Еще вопрос Почему на некоторых ОС не работает трейнер? Т.е. адреса все совпадают, но на нажатие кнопки никак не реагирует?

Разобрался, спс. А как можно в текст вывести?

ReadProcessMemory(HandleWindow, ptr($01162420), @bb, 4, wread);

На что это поменять надо?

Как можно сделать программу, чтобы, к примеру, в Label показывалось мое кол-во жизней в игре?

PS: Адрес есть...