Показатель жизненной силы(Помогите)

[Foreworld]

Все я разобрался, этот код вам поможет показать ХП и Максимальное ХП своего персонажа.
Для этого вам нужно Button(2 кнопки) и Label(2 штуки).
Button1. - Связь с процессором
Button2. - Считать и показать значения в Label1 и Label2.

var
  Form1: TForm1;
  KlientWindow:HWND; //Handle клиента
  ProcessId:Integer;
  hProcess:Integer; //Идентификатор объекта
  WHP:Integer;
  WHPMax:Integer;
  HP:Integer;
  HPMax:Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  KlientWindow := FindWindow(nil, PChar('Perfect World')); //Находим Handle окна
  GetWindowThreadProcessId(KlientWindow,@ProcessId); //Получаем И.П.
  hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); //Открываем процесс с возможностью записи
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  HP,HPMax:Integer;
  WHP,WHPMax,NoB:DWord;
begin
try
    ReadProcessMemory (hProcess, Pointer($C38B6C), @WHP, sizeof(WHP), NoB); //BaseAdress
    ReadProcessMemory (hProcess, Pointer(WHP+$1C), @WHP, sizeof(WHP), NoB);
    ReadProcessMemory (hProcess, Pointer(WHP+$34), @WHP, sizeof(WHP), NoB);
    ReadProcessMemory (hProcess, Pointer(WHP+$4A8), @WHP, sizeof(WHP), NoB); //Читаем значение HP
    HP := Integer(WHP); //Переводим Integer
    Label1.Caption := IntToStr(HP); //Вывести знанчение ХП
    ReadProcessMemory (hProcess, Pointer($C38B6C), @WHPMax, sizeof(WHPMax), NoB); //BaseAdress
    ReadProcessMemory (hProcess, Pointer(WHPMax+$1C), @WHPMax, sizeof(WHPMax), NoB);
    ReadProcessMemory (hProcess, Pointer(WHPMax+$34), @WHPMax, sizeof(WHPMax), NoB);
    ReadProcessMemory (hProcess, Pointer(WHPMax+$4F0), @WHPMax, sizeof(WHPMax), NoB); //Читаем значение MaxHP
    HPMax := Integer(WHPMax); //Переводим Integer
    Label2.Caption := IntToStr(HPMax); //Вывести Максимальное значение ХП

    EXCEPT 

end;
end;

end.

Спасибо fds255 за оффсеты!))

[fds255]

строку:
ReadProcessMemory (hProcess, Pointer(WHP+$494), @HP, sizeof(HP), NoB);
перепиши так:
ReadProcessMemory (hProcess, Pointer(WHP+$4A8), @WHP, sizeof(WHP), NoB);

строку:
ReadProcessMemory (hProcess, Pointer(WHPMax+$4DC), @HPMax, sizeof(HPMax), NoB);
перепиши так:
ReadProcessMemory (hProcess, Pointer(WHPMax+$4F0), @WHPMax, sizeof(WHPMax), NoB);

Офсеты здесь:
http://zhyk.ru/forum/showpost.php?p=...postcount=1016

[scitelz]

неужели компилятор вам не выдает кучу криков, что глобальные и локальные переменные с одним именем)

Ну и если будете переходить на новые версии Делфи, то переменную NoB надо будет менять в тип SIZE_T, мало ли пригодится.

[Foreworld]

Не, не орет))) Спасибо!

[ToRcH2565]

Цитата: Сообщение от scitelz неужели компилятор вам не выдает кучу криков, что глобальные и локальные переменные с одним именем)

И заметили же.... либо я так отстал что у меня нет глобальных переменных с именами короче символов 8-10, либо ТС так преуспел в сокращении имен...

Еще момент, если делать так:

var
  Form1: TForm1;
  PWWindow : Record
    KlientWindow:HWND; //Handle клиента
    ProcessId:Integer;
    hProcess:Integer; //Идентификатор объекта
    HostPlayer : record
      WHP:Integer;
      WHPMax:Integer;
      HP:Integer;
      HPMax:Integer;
    end;
  end;

Код становится чуть длинше, но более читаем... и со временем быстрей дойдете до ООП...