офсеты в Delphi

[HellD]

ку )) народ, млин )) видимо я совсем тупой, но моих 13 лет кодинга на delphi не хватает, что бы разобраться с этими гребанными офсетами и как их туды впихнуть... просто со всяк такой фигней не особо сталкивался... если кому не трудно... может кто помочь, объяснить это все человекопонятным языком )) а в идеале показать простейший исходничек, желательно с коментами к примеру на получение хп перса )) а то скок я уже тем перерыл )) скок всего этого перечитал )) ничерта не вникаю ))
заранее благодарен ))

[Dinmaite]

http://zhyk.ru/forum/showthread.php?t=116019

[DAcorp]

Вот пример) Функция для получения значения типа Integer

Function TFMain.GetCharInt(Adress: Integer): Integer;
var
  Buf, Process, PId: integer;
  wr: cardinal;
begin
 GetWindowThreadProcessId(ClientPID, @PId);
 process:=OpenProcess(PROCESS_ALL_ACCESS, false, PId);
 if process<>0 then begin
  readprocessmemory(process, ptr(BaseAdress), @Buf, sizeof(Buf), wr);
  readprocessmemory(process, ptr(Buf+$1c), @Buf, sizeof(Buf), wr);
  readprocessmemory(process, ptr(Buf+$20), @Buf, sizeof(Buf), wr);
  readprocessmemory(process, ptr(Buf+Adress), @buf, sizeof(Buf), wr);
  Result:=Buf;
  CloseHandle(process);
 end;
end;

Краткое пояснение по переменным:
ClientPID - Process ID клиента ПВ (нахождение: ClientPID:=FindProcess(nil,'Perfect World', где Perfect World - название окна)

BaseAdress - BaseAdress (пример в адреса в 10ной системе для текущей версии оффа: 10860812)

Adress - Адрес параметра, которого хотите получить (пример в адреса в 10ной системе для текущей версии оффа: CurrentHP - 1140; MaxHP - 1204)