Трейнер...

[©@nek :)]

Решил написать трейнер, но в игре значение не целое а вещестевнное(дробное) так вот: как записать дробное значение в ячейку оперативной памяти?
вот немного погуглив нашел код:

var
PokeValue :integer; /// при смене на real ругается на строку
---------------------------------------------
Const WindowTitle = 'tst';
      Address2 = $0123FDC0;
-----------------------------------------------------
pokevalue1:= StrToInt(Edit3.Text);
WindowName := FindWindow(nil,WindowTitle);


  ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
  HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);

  GetMem(buf,1);

  buf^ := Chr(PokeValue1); вот ету строку!!!
  WriteProcessMemory(HandleWindow,ptr(Address2),buf,NumberOfBytes,write);
  FreeMem(buf);
  CloseHandle(HandleWindow);

только пожалуйста не нужно меня слать в гугл... уже все прогуглил и ничего не нашел кроме этого кода.... просто укажите в чем ошибка... ну или напишите код для добавления вещественного значения в ячейку оп....

[©@nek :)]

ну помогите ктонибудь....