[Помогите!] Получение ХП (Delphi)

[hiho]

Помогите получить ХП на руОфе.
Пробую так:

...
const base_addr = $B280C4;
...
function ConnectToClient: boolean;
var
  addr: DWORD;
  BytesCountOfRead: DWORD;
begin
  try
    hw := FindWindow(nil, pChar('Perfect World'));
    pidw := GetWindowThreadProcessId(hw, PID);
    hProcess  := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
    Result := hProcess <> 0;
    if result then begin
      ReadProcessMemory(hProcess, ptr(base_addr), @addr, sizeof(addr), BytesCountOfRead);
      game_addr := addr + $1C;
    end;
  except
    Result := False;
  end;
end;

function ConnectedToClient: boolean;
begin
  Result := hProcess  <> 0;
end;

function GetGamerInfo: TGamerInfo;
var
  BytesCountOfRead: DWORD;
  addr: DWORD;
begin
  ZeroMemory(@Result, SizeOf(Result));
  if ConnectedToClient then begin
    ReadProcessMemory(hProcess, ptr(game_addr),@addr,sizeof(addr),BytesCountOfRead);
    ReadProcessMemory(hProcess, ptr(addr + $20), @gamer_addr, sizeof(gamer_addr), BytesCountOfRead);
    ReadProcessMemory(hProcess, ptr(gamer_addr + $4D0),@Result.MaxHP, sizeof(Result.MaxHP), BytesCountOfRead);
    CloseHandle(hProcess);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ConnectToClient then begin
    GamerInfo := GetGamerInfo;
    ShowMessage(IntToStr(GamerInfo.MaxHP));
  end;
end;

В итоге получаю окошко с кучей цифр, демонстрирующих мне 400 млн. ХП. Подскажите, в чем я ошибся

[VeTaL_UA]

Структура игрока теперь не $20, а $34.

Цитата: Сообщение от hiho ReadProcessMemory(hProcess, ptr(addr + $20$34), @gamer_addr, sizeof(gamer_addr), BytesCountOfRead);

[hiho]

Цитата: Сообщение от VeTaL_UA Структура игрока теперь не $20, а $34.

Поправил. Глобально ничего не изменилось. Цифры другие, смысл тот же

Добавил проект целиком.

[VeTaL_UA]

Понял. Дело в том, что ты за base address считаешь game address. Поэтому, чтобы твой код работал, нужно убрать строку:

Цитата: Сообщение от hiho game_addr := addr + $1C;

HellD, я первый

[HellD]

В констах у тя GA указан а не BA... и ты к нему еще и $1C прибавляешь... вот и выдает чушь...

 
.....
const BA=$B27A04;
const GA=$B280C4;
......

_____
ну вот... надо быстрей было печатать ))

[hiho]

все так =) Спасибо большое. Действительно использовал не те константы

[aaandddreeey]

а теперь можете далеко не самому великому знатоку обьяснить что это?))))))
это что-то довольно полезное?)

[trixicus]

Это способ получения колличества ХП из игры в свою программу

[Meg(0)]

function GetGamerInfo: TGamerInfo;

GetGamerInfo: dword ?
TGamerInfo: dword ?

[gurin]

TGamerInfo - это скорее всего структура

[Meg(0)]

Цитата: Сообщение от gurin TGamerInfo - это скорее всего структура

если не указывать,как dword, выдаёт ошибку

[dwa83]

Цитата: Сообщение от Meg(0) GetGamerInfo: dword ? TGamerInfo: dword ?

Это запись напоминает "String: Int?". В вашей проге определён тип структуры TGamerInfo. В проге объявлена глобальная переменная GamerInfo: TGamerInfo; Функция GetGamerInfo возвращает структуру типа TGamerInfo, DWORD не при чём