for supernewbie (логово извращенцев)

[supernewbie]

Stored := MyObj; //прочитать значение с off_40A798
каким образом мы читаем с 40A798 этой строкой???
//я них*я непонимат(

[destructor]

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

//я них*я непонимат(

он "в своем приложении", это некатит.

procedure MyProc;
var //учимся НЕ юзать глобальные переменные
   adr:pointer;
   objaddr:pointer;

begin
  adr:=pointer( getmodulehandle('project25.exe') + $A798);
  obaddr:=pointer(adr^);

  messagebox(0,PChar(IntToHex(obaddr)),'',0);
end;

так скомпилит?

[supernewbie]

[Error] path.dpr(25): There is no overloaded version of 'IntToHex' that can be called with these arguments

[destructor]

даже я понял что значит эта строчка.

вот так надо: messagebox(0,PChar(IntToHex(obaddr, 8)),'',0);

[supernewbie]

да нихрена)

тоже самое)

Добавлено через 31 секунду
cardinal(objaddr) - работает, но...

[destructor]

а так?
messagebox(0,PChar(IntToHex(integer(obaddr), 8])),'',0);

Добавлено через 28 секунд

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

но...

что "но"?

[supernewbie]

по идее таким образом можно и без ^ обойтись... ну ладно, давай уже дальше

[alexteam]

что "но"?

наверное

//я них*я непонимат(

[destructor]

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

по идее таким образом можно и без ^ обойтись..

нельзя.
угадали адрес переменной: 0040A798
по этому адресу лежит адрес обьекта:

Project25.exe:0040A794 dd 0
Project25.exe:0040A798 dd $0041080C  //нужно это
Project25.exe:0040A79C dd 0
Project25.exe:0040A7A0 dd 0

нам надо сделать эту хрень ^ , учи указатели.



выкладывай длл+ехе, погляжу что получилось

[supernewbie]

хрень какая-то получилась