adress ve pointer okutmak.

[Shou]

merhabalar ben delphi 7 ile adress ve pointer okutmak istiyorum adress ve pointer bu,

Kod: Tümünü seç

POINTER = 00CC5368 | OFFSET = 1f8

şöyle deniyorum ama 0 diyor nerede yanlış yapıyorum acaba,

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject); var
address,address2,addressoff: dword;
processhandle: thandle;
read,realvalue: dword;
check: boolean; ProcessID:DWORD;
Process:THandle; hCurrentWindow:Hwnd; begin
hCurrentWindow := FindWindow('Ultima Online',nil);
if hCurrentWindow <> 0 then begin
GetWindowThreadProcessID(hCurrentWindow,ProcessID);
Process:=OpenProcess(PROCESS_SET_INFORMATION,false,ProcessID);
if Process <> 0 then
begin
address:=($00CC5368); // Adres
addressoff:=($1F8); // Offset
  check:=readprocessmemory(processhandle,pointer(address),@address2,4,read);
  check:=readprocessmemory(processhandle,pointer(address2+addressoff),@realvalue,4,read);
  label1.Caption:=IntToStr(realvalue);
end;
end;
end;

yardımcı olursanız sevinirim.