[Помогите!] И ник персонажа

[Forester!]

Всем здравствуйте.
Решил вспомнить молодость и освоить Delphi. Сейчас пытаюсь заставить работать правильно код, который отображает имя персонажа, но как и многие до меня столкнулся с проблемой.
Вот собственно код, я думаю папки без труда узнают свои наработки ))

unit New;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Gauge1: TGauge;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var WHP,NoB :DWord;
    KlientWindow:HWND; //Handle клиента
    i,ProcessId:Integer;
    hProcess:Integer; //Идентификатор объекта
    str : array [0..255] of char;


begin
     KlientWindow := FindWindow(nil, PChar('Perfect World')); //Находим Handle окна
     GetWindowThreadProcessId(KlientWindow,@ProcessId); //Получаем И.П.
     hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
        ReadProcessMemory (hProcess, Pointer($00C38B6C), @WHP, sizeof(WHP), NoB); // base adress
        ReadProcessMemory (hProcess, Pointer(WHP+$1C), @WHP, sizeof(WHP), NoB); // ba+$1c
        ReadProcessMemory (hProcess, Pointer(WHP+$34), @WHP, sizeof(WHP), NoB); // ba+$34
        ReadProcessMemory (hProcess, Pointer(WHP+$688), @WHP, sizeof(WHP), NoB); // $ba+1c+$34+$688
        ReadProcessMemory (hProcess, Pointer(WHP), @str, 32, NoB); // в Cheat Engine тут имя перса
        showmessage(str);
      end;


end.

Если это имеет значение, у меня Win 7 64x и пишу на Delphi 2010.
Программа сейчас выводит иероглифы. Подозреваю что не правильно вывожу полученный результат. Но может дело в чем то другом. Помогите разобраться. Заранее спасибо.

Добавлено через 4 минуты
http://zhyk.ru/forum/showthread.php?t=331413 эту тему читал, почти все взял из нее, но результат нулевой

[ToRcH2565]

Цитата: Сообщение от Forester! str : array [0..255] of char;

Замените строку на :
str : WideString[255]; {255- пример, читаете 32, ставте 32....}

зы. Неуверен как у вас(D2010), а в (XE2-XE5) String=WideString, Char=WideChar...

pss ReadProcessMemory (hProcess, Pointer(WHP), @str[1], 32, NoB); << над исправить если переменная обьявлена строкой до такого состояния....

[Forester!]

Попробую вечерком, отпишусь.

Цитата: Сообщение от ToRcH2565 зы. Неуверен как у вас(D2010), а в (XE2-XE5) String=WideString, Char=WideChar...

что это значит? То что string и widestring одинаковые типы?

[Smertig]

Не все оффсеты шестнадцатиричные. Там где-то видел 1С без $.

[Forester!]

Цитата: Сообщение от Smertig Не все оффсеты шестнадцатиричные. Там где-то видел 1С без $.

И что же это за число 1С такое если не шестнадцатитричное?

Добавлено через 4 минуты
И потом в Cheat Engine смещения я вводил руками ba+1c+34+688+0

[pw.assistant]

Цитата: Сообщение от Forester! И что же это за число 1С такое если не шестнадцатитричное?

Литовская еденица - одинс

По теме, мне кажется там не хватат одного ReadProcessMemory, цепочка, если мне память не изменяет $ba+$1c+$34+$688+$0

        ReadProcessMemory (hProcess, Pointer(WHP+$688), @WHP, sizeof(WHP), NoB); // $ba+1c+$34+$688
        ReadProcessMemory (hProcess, Pointer(WHP), @WHP, sizeof(WHP), NoB); // $ba+1c+$34+$688+0
        ReadProcessMemory (hProcess, Pointer(WHP), @str, 32, NoB); // в Cheat Engine тут имя перса

[Forester!]

Ну, долго ли коротко ли, методом тыка, проб и ошибок, родил то что хотел )


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Gauges, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Gauge1: TGauge;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var WHP,NoB : DWord;
KlientWindow:HWND; //Handle клиента
ProcessId:Integer; // И.П. процесса
hProcess:Integer; //Идентификатор объекта
str : array [0..32] of widechar; //массив в котором будет содержаться имя персонажа


begin
KlientWindow := FindWindow(nil, PChar('Perfect World')); //Находим Handle окна
GetWindowThreadProcessId(KlientWindow,@ProcessId); //Получаем И.П.
hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
ReadProcessMemory (hProcess, Pointer($00C38B6C), @WHP, sizeof(WHP), NoB); // читаем из base adress
ReadProcessMemory (hProcess, Pointer(WHP+$1C), @WHP, sizeof(WHP), NoB); // ba+$1c читаем из адреса полученного при чтении base adress + смещение $1c (gameadress)
ReadProcessMemory (hProcess, Pointer(WHP+$34), @WHP, sizeof(WHP), NoB); // ba+$1C+$34 читаем из адреса полученного при чтении gameadress + смещение $34 (структура перса)
ReadProcessMemory (hProcess, Pointer(WHP+$688), @WHP, sizeof(WHP), NoB); // $ba+$1c+$34+$688 вот добрались до указателя на адрес расположения имени перса
ReadProcessMemory (hProcess, Pointer(WHP), @str, 32, NoB); // в Cheat Engine и у нас, тут имя перса
showmessage(str);
end;


end.

А теперь как получилось...

При запуске из оболочки delphi 2010 программа не получала прав администратора на win 7, соответственно не могла открыть процесс Perfect World и прочитать нужные значения памяти.

Поэтому для того чтобы программа работала, необходимо компилированный exe-шник запускать через проводник с правами администратора.
Вот и все. Огромное спасибо всем кто принял посильное участие.

Добавлено через 11 минут

Цитата: Сообщение от pw.assistant По теме, мне кажется там не хватат одного ReadProcessMemory, цепочка, если мне память не изменяет $ba+$1c+$34+$688+$0

Ну на самом деле в Cheat Engine что $ba+$1c+$34+$688+$0, что просто $ba+$1c+$34+$688 - значения одинаковые. Читать нужно именно из адреса, полученного при чтении в $ba+$1c+$34+$688

[Dinmaite]

Цитата: Сообщение от Forester! полученного при чтении в $ba+$1c+$34+$688

Это и есть тот самый +0

[ToRcH2565]

Цитата: Сообщение от Forester! Поэтому для того чтобы программа работала, необходимо компилированный exe-шник запускать через проводник с правами администратора.

Занятно, на вин хп этого недостаточно, нужно еще получить привелегию отладчика.

[Forester!]

А что за привилегия отладчика?
Может быть в 7-ке права администратора это в себя включают.

[ToRcH2565]

Может быть и включают, невкурсе как в вин 7... но в хп их нужно получать(там нет запуска под админом), даже когда запускаю от администратора все приложения, чтоб копатся в чужой памяти, приходится сказать системе что айм есть отладчик)

[Forester!]

Сейчас уже программа находит все окна PW и выводит ники персов в combobox, а при выборе ника определяет и выводит показатели MP HP CHI, правда с Чи загвоздка, понять не могу считываю максимальные показатели Чи, а там четырехзначное число.
Кто нибудь может подсказать почему?

[pwInfo]

Как бы банально не збычало, но...
Скорее всего вы ошиблись офсетом.

[Desmond Hume]

Forester!, четырехзначное, или четырехбайтное?

[Smertig]

Цитата: Сообщение от Desmond Hume Forester!, четырехзначное, или четырехбайтное?

Я думаю, это сути не меняет

Попробуйте считать 1 байт (если количество чи - 0, 1, 2 или 3). Если считывается ярость, то там 2 или 4 байта.