Указатели и адреса

[Misha_M]

Здравствуйте! Речь идет о чтении переменных с чужого процесса (ничего криминального).

Написал программу, которая читает переменную с другого процесса по адресу. Адрес узнаю из артмани. Но, проблема в том, что адрес динамический и его приходится узнавать постоянно.

Узнал, что указатель не меняется от перезапуска приложения.

Нашел указатель на этот адрес. А как теперь им пользоваться? Как с помощью указателя узнавать ту самую переменную?

[Miha85193]

Приводим разыменованый указатель к нужному типу данных. Для конкретного решения проблемы нужен исходный код.

[Misha_M]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
LabeledEdit4: TLabeledEdit;
BitBtn1: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Timer1: TTimer;
procedure BitBtn1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If Timer1.Enabled = False then
Timer1.Enabled:= True else
Timer1.Enabled:= False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
HP:THandle;
wread:Cardinal;
bb:LongInt;
begin
HP:= OpenProcess(PROCESS_VM_READ,False,StrToInt(LabeledEdit1.Text) {ИД процесса});
LabeledEdit3.Text := IntToStr(HP);
ReadProcessMemory(HP,Ptr($0012D698){АДРЕС},@bb,4,wread);
Edit2.Text := IntToStr(bb );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

[Misha_M]

Так я читаю из адреса - все работает. Но он динамический. Теперь, зная указатель, как тоже самое получить?

[GunSmoker]

ReadProcessMemory.

[Misha_M]

Спасибо за ответы. Извините, сразу не сказал - я новичок в Delphi. Подскажите пример кода, как все это написать, имея указатель.

[JekaDefer]

Кстати можешь вот из этой программки что нить подчеркнуть)

[Misha_M]

Посмотрю код, Спасибо. Но все таки? Как это сделать?

[GunSmoker]

Друг, не тормози. ТЫ УЖЕ ЭТО ДЕЛАЕШЬ. Ты уже читаешь данные по адресу.