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

[xRamzeSx]

procedure TTimer1.Timer(Sender: TObject);
begin
  edPChar.Text := Read_String ($FFFFFFFF{ваш адрес}, 200);
end;

Не работает, появляется ошибка:

Incompatible types: 'Pointer' and 'Integer'

[Sibedir]

edPChar.Text := Read_String (Pointer($FFFFFFFF), 200);

Штука называется - приведение типов.

[xRamzeSx]

Программа запускается, но считывания не происходит. Кажется, что программа не находит процесс, хотя я его указываю

[xRamzeSx]

При считывании из адреса, даже нечего не отображается.

[Sibedir]

Возможно вы путаете WindowTitle и его Caption.
Пробуйте:

WindowH := FindWindowEx (0, 0, nil, 'Это заголовок окна нужной программы');

[xRamzeSx]

Всё-равно, не работает.

[xRamzeSx]

unit Unit1;

interface

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

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

var
  Form1: TForm1;

const
  WindowTitle = 'www.awplanet.com';

implementation

function read_value (Address: Pointer; ASize: Cardinal; var AOut: Pointer): Cardinal;
var
  WindowH: DWORD;
  ThreadId: DWORD;
  ProcessId: DWORD;
  ProcessH: DWORD;
begin
  WindowH := FindWindowEx (0, 0, nil, 'www.awplanet.com');
  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
  Label4.Caption:= Read_String (Pointer($456B8C), 200);
end;

end.

Это сейчас записано

[Sibedir]

Откуда вот это - www.awplanet.com? Я не в курсе, что за игра. Я так понимаю она онлайн. А это, наверное, заголовок окна клиента игры?
И сразу еще вопрос:
Откуда вот это - $456B8C?

[xRamzeSx]

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

Откуда вот это - www.awplanet.com? Я не в курсе, что за игра. Я так понимаю она онлайн. А это, наверное, заголовок окна клиента игры?

Да это заголовок игры.

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

Откуда вот это - $456B8C?

Это из неё же, она не является браузерной, есть файл, находящийся на в папке на жёстком диске, в этом файле $456B8C адрес, который показывает Ник игрока.

[Sibedir]

Ну я скачал игру, зарегился. Кур уже потоптал. Как файл называется-то?