Перевод из Байтовых цифр в текст

[xRamzeSx]

Окно игры - www.awplanet.com, процесс - portal, файл в папке на диске - awclient.

[Sibedir]

http://delphiworld.narod.ru/base/fin..._part_cpt.html - Как найти окно по неполному названию

function FindWindowByText (var WindowT: String): HWND;
var
  Wnd: hWnd;
  buff: array[0..127] of Char;
begin
  Result := 0;
  Wnd := GetWindow(Form1.Handle, gw_HWndFirst);
  while Wnd <> 0 do
  begin
    if (Wnd <> Application.Handle) and
      IsWindowVisible(Wnd) and
      (GetWindow(Wnd, gw_Owner) = 0) and
      (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then
    begin
      GetWindowText(Wnd, buff, sizeof(buff));
      if pos(WindowT, StrPas(buff)) > 0 then
      begin
        Result := Wnd;
        WindowT := buff;
        Break;
      end;
    end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
  end;
end;

Caprion окна "www.awplanet.com Portal to Another World v 1.21".

процесс - portal

Это зачем?

файл в папке на диске - awclient

awclient.exe что-ли? Если да, то где вы в нем увидили $456B8C и с чего вы взяли, что это адрес нужных вам данных? Может вы через ArtMoney этот адрес узнали?

[xRamzeSx]

Сообщение от Sibedir

...где вы в нем увидили $456B8C и с чего вы взяли, что это адрес нужных вам данных? Может вы через ArtMoney этот адрес узнали?

Не важно, как я узнал этот адрес, мне нужно по нему значение узнать только и всё.

[xRamzeSx]

Сообщение от Sibedir

"www.awplanet.com Portal to Another World v 1.21"

Находит но при отображении, показывает:

Иногда, если зайти в игру под другим именем, показывает те же символы, но на конце только последняя буква ника.

[xRamzeSx]

Люди, кто-нибудь знает, что сделать, чтобы функция отображала всю текстовую строку, а не только последний символ
xRamzeSx - ‰‰‰‰‰‰‰x

[Sibedir]

Сори, меня опять отвлекли.

Не важно, как я узнал этот адрес, мне нужно по нему значение узнать только и всё.

А-а-а, ну понятно. А смысл был у нас спрашивать, если вы умнее остальных.
xRamzeSx, если я спрашиваю откуда этот адрес, то это наверное важно.
У меня например по этому адресу ($456B8C) сейчас нашлась строка comctl32.dll.
Смысл в том, что поиск значения в процессе по абсолютному адресу весьма сомнительное занятие. Мне кажется нужно искать значение по его смещению онтосительно адреса загрузки приложения.
А как

по нему значение узнать

мы уже разобрались.



P.S.: Не смешите народ, играя в Джеймса Бонда.

[xRamzeSx]

Сообщение от Sibedir

А смысл был у нас спрашивать, если вы умнее остальных.

Я не умнее всех остальных.

Сообщение от Sibedir

xRamzeSx, если я спрашиваю откуда этот адрес, то это наверное важно.

Я нашёл этот адрес так, как Вы и предпологали, через ArtMoney

Сообщение от Sibedir

P.S.: Не смешите народ, играя в Джеймса Бонда.

Я не собирался смешить народ...

PS: Вы можете помоч с отображением всей строки текста?

[Sibedir]

Не обижайтесь, xRamzeSx. Я просто подумал, что вы один из тех умников, которые не знают как решить свою задачу, задают вопрос (не правильно, не полно, чёт там секретничают), не слушают, а потом еще и права качают. Не работает, мол, ваше решение, не умеете не беритесь.
Так что примите мои извинения.

Действительно, у меня артмани тот же адрес выдал. Я в этом не проффи и как устроено адресное пространство до конца не понял. Я думал, что при каждом запуске адрес должен был меняться. Но видимо я ошибался. Это, наверное, и есть уже то самое смещение.

Вот этот код у меня отлично сработал.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

function FindWindowByText (var WindowT: String): HWND;
var
  Wnd: hWnd;
  buff: array[0..127] of Char;
begin
  Result := 0;
  Wnd := GetWindow(Form1.Handle, gw_HWndFirst);
  while Wnd <> 0 do begin
    if (Wnd <> Application.Handle) and
      IsWindowVisible(Wnd) and
      (GetWindow(Wnd, gw_Owner) = 0) and
      (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then
    begin
      GetWindowText(Wnd, buff, sizeof(buff));
      if pos(WindowT, StrPas(buff)) > 0 then begin
        Result := Wnd;
        WindowT := buff;
        Break;
      end;
    end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
  end;
end;

function read_value (Address: Pointer; ASize: Cardinal; var AOut: Pointer): Cardinal;
var
  WindowH: DWORD;
  ThreadId: DWORD;
  ProcessId: DWORD;
  ProcessH: DWORD;
  s: String;
begin
  s := 'www.awplanet.com';

  WindowH := FindWindowByText (s);
  ThreadId := GetWindowThreadProcessId (WindowH, ProcessId);
  ProcessH := OpenProcess (PROCESS_VM_READ, False, ProcessId);

  ReadProcessMemory(ProcessH, Address, AOut, ASize, Result);

  CloseHandle (ProcessH);
end;

function Read_Integer (Address: Pointer; ASize: Cardinal): Integer;
var
  buf: PInteger;
begin
  GetMem (buf, ASize);
  if read_value (Address, ASize, Pointer(buf)) = ASize then
    Result := buf^
  else
    Result := 0;
end;

function Read_Real (Address: Pointer; ASize: Cardinal): Real;
var
  buf: ^Real;
begin
  GetMem (buf, ASize);
  if read_value (Address, ASize, Pointer(buf)) = ASize then
    Result := buf^
  else
    Result := 0;
end;

function Read_String (Address: Pointer; ASize: Cardinal): String;
var
  buf: String;
begin
  SetLength (buf, ASize);
  if read_value (Address, ASize, Pointer(buf)) = ASize then
    Result := buf
  else
    Result := '';
end;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text := Read_String (Pointer ($00456B8C), 200);
end;

end.

[xRamzeSx]

При использовании этого кода, у меня снова появляется:

PS: не могли бы Вы сделать скрин шот, подтверждающий, что у Вас всё работает?

[Sibedir]

Вот
Безымянный.JPG

Если у вас D2010, то сделайте так

procedure TForm1.Timer1Timer(Sender: TObject);
var
  s: string;
begin
  s := PAnsiChar (Read_String (Pointer ($00456B8C), 200));
  Edit1.Text := s;
end;