[Sting]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   const
 Offset='6F71C7B8';
var
  Form1: TForm1;

 Value: string;
 Wnd: HWND;
 ThreadId, ProcessId, Hdl: Cardinal;
 BytesRead: Cardinal;

implementation

{$R *.dfm}
 begin
// окно игры
 Wnd := FindWindow(nil, 'Название окна игры');
// id процесса
 ThreadId := GetWindowThreadProcessId(Wnd, @ProcessId);
// открываем процесс с правами записи
 Hdl := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
// читаешь по адресу

// выводишь

// закрываешь процесс
 CloseHandle(hdl);
 ReadProcessMemory(Hdl,Pointer(Offset), @Value, 4, BytesRead);


end.

ругается на вот эту строчку

Код:

ReadProcessMemory(Hdl,Pointer(Offset), @Value, 4, BytesRead);

вот на это слово:

Код:

@Value,

Вот такими словами:

[Error] Unit1.pas(42): Invalid typecast

а по идеии должна ведь работать! хотя бы компилироваться!

поправьте меня если это не так!