Что это? Delphi 7

[SsEnder]

всем привет хочу определить кол-во ХП у перса, пишу такой код:
procedure TForm1.Button1Click(Sender: TObject);
var aa, buf:integer; nop: dword;
begin
hv:= findwindow(nil, 'Perfect World');
getwindowthreadprocessid(hv, @processid);
hprocess:= openprocess(process_all_access, false, processid);
readprocessmemory(hprocess, pointer(PW_BASE_ADDRESS), @buf, sizeof(buf), nop);
readprocessmemory(hprocess, pointer(buf+$1c), @buf, sizeof(buf), nop);
readprocessmemory(hprocess, pointer(buf+$c34), @buf, sizeof(buf), nop);
readprocessmemory(hprocess, pointer(buf+$494), @aa, sizeof(aa), nop);
label1.caption:=inttostr(aa);
end;

end.


Постоянно выводит результат (что бы не прописал в (buf+$...)) в лейбел один и тот же самый: 4356872

в чем ошибка?

PW_BASE_ADDRESS = $A571E0;
PackCall = $63DB70;

Elite-pw, Delphi 7

[Smertig]

Цитата: Сообщение от SsEnder readprocessmemory(hprocess, pointer(buf+$c34), @buf, sizeof(buf), nop);

Просто $34

[SsEnder]

Цитата: Сообщение от Smertig Просто $34

спс а можеш подсказать как сделать выбор перса в комбобоксе?

[Smertig]

Цитата: Сообщение от SsEnder спс а можеш подсказать как сделать выбор перса в комбобоксе?

На дельфи не пишу, увы