[Delphi] Cheat problem z pointerem Nie działa

[aleks365]

Witam

 

Nie działa mi pointer w tym kodzie

 

Ogólnie kod działa ale jak podpinam pointer to już nie może go źle podpinam, wiem że pointer działa jak generuje Trainer przez Cheat engine to śmiga normalnie

 

Kod

// Funkcje zapisujaca
const
Fuel = $00988C50;
offset = $67C;
procedure MemWriteInteger(Address: Integer; buf: single; Length: DWORD);
var ProcID, THandle: Integer;
   e: DWORD;
begin
  GetWindowThreadProcessId(FindWindow('LFS',Nil), @ProcID);
  THandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcID);
  WriteProcessMemory(THandle, Ptr(Address + offset), @buf, Length, e);
  CloseHandle(THandle);
end;

// Koniec - Funkcje zapisujaca


procedure TForm1.Button1Click(Sender: TObject);
begin
MemWriteInteger(Fuel, 900, 3);
end;

 

Co radzicie zastosować może trzeba dać kod hex czy co sam już nie wiem dam zdjęcie w jakiej postaci zapisuje pointer w cheat engine

Tam gdzie jest zaznaczone to to kopiuje ten adres i po prawej pointer

 

PS: Jak do Cheata daje inny adres możliwe że to hex to działa proszę mi wytłumaczyć na czym to polega i podkreślam że jestem początkujący