Problem z czytaniem jednego byte

0

Witam.

Mam problem z Delphi z odczytaniem jednego byte z adresu.

Generalnie tak:

var
  Value : BYTE;
  BytezRead : Size_T;
begin
hook;
ReadProcessMemory(IDProcess, Ptr(Address), @Value, SizeOf(Value), BytezRead);



  Form1.Label50.Caption := inttostr(memreadbyte($103226D4));     <- działa wykrywa mi numer jaki chcę - 7, jednak jest to adres zmienny. 
  Form1.Label52.Caption := inttostr(memreadbyte(round(strtoint(('$') + IntToHex((Value + PosZ))))));       <- nie działa. Jakiś dziwny numer mi wykrywa np. 21324234


CloseHandle(IDProcess);
end;

Potrzebuję odczytać wartość "BYTE".
Proszę o pomoc. Dzięki.

2

Co to za wynalazek:

Form1.Label52.Caption := inttostr(memreadbyte(round(strtoint(('$') + IntToHex((Value + PosZ))))));

a nie czasem tak:

Form1.Label52.Caption := IntToStr(MemReadByte(StrToInt64('$' + IntToHex(Value + PosZ, 8))));
0

Problem rozwiązany xD Dziękuję.

1 użytkowników online, w tym zalogowanych: 0, gości: 1