Чтение из памяти

[Core2Duo]

Ув. Программисты помогите решить проблему. Мне необходимо прочитать из памяти число (4 байта), адрес я знаю, вот только программа выводит не то что нужно, и даже это число не изменяется.
Просьба не писать мне "юзай поиск", я искал и все что находил не работает или работает не корректно.

procedure TForm1.Button1Click(Sender: TObject);
var HandleWindow : cardinal;
    ipBase: Pointer;
    IpBuf : integer;
    numberRead: DWORD;
begin
 HandleWindow:=FindWindow(nil,'Калькулятор Плюс');
 ipbase:=ptr($0012AF90);
 ReadProcessMemory(HandleWindow, ipBase, Addr(ipbuf), 4, numberRead);
 Label1.Caption:=IntToStr(IpBuf);
end;

В Label1 выводит число 4356864, а должен выводить 3026.
Зарание спасибо!

[Пепел Феникса]

вы параметры функции ReadProcessMemory читали?

говорили что находили примеры...не заметно...если используете хендл окна(!!!) а не процесса.

[Core2Duo]

Спасибо!!! Помогло!