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

[supernewbie]

о госпади, скомпилировалось..., тока какого хрена после objaddr^:=0; все равно 1 2 3?!

[destructor]

код функции выкладывай

[supernewbie]

procedure MyProc;
var
adr:pointer;
objaddr:^integer;
buf:cardinal;
i:^integer;
begin
  messagebox(0,'pause','',0);
  adr:=pointer( getmodulehandle('project25.exe') + $A798);
  objaddr:=pointer(adr^);
  messagebox(0,PChar(IntToHex(integer(objaddr),8)),'',0);
  messagebox(0,PChar(IntToHex(integer(objaddr^),8)),'',0);
  objaddr^:=0;
  messagebox(0,PChar(IntToHex(integer(objaddr^),8)),'',0);
end;

[destructor]

objaddr^:=0;

вот так выглядит память, у теб objaddr = 01D7080C

01D7080C dd 408184h  // ты тут записываеш нолик , это кстате вызовит крит ошибку при выгрузке обьекта
01D70810 dd 1   // а надо записать сюда   7
01D70814 dd 2   // сюда   6
01D70818 dd 3   // и сюда  5

[supernewbie]

угу... так, в таком случае...

Добавлено через 1 минуту
ураааа)

objaddr:=pointer(Integer(objaddr)+4);

[destructor]

ну бля чем $01D7080C отлитчается от $01D70810 и от этого $01D70814 ???

Добавлено через 1 минуту

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

objaddr:=pointer(Integer(objaddr)+4);

поправочка:
param1:= pointer(Integer(objaddr)+4);
так круче, поверь

[supernewbie]

как занимательно)

[destructor]

var:
param1: ^integer;

begin
...
param1: = objaddr+1; //так тоже должно прокатить, но главное идею понял

[supernewbie]

атнюдь

[Error] path.dpr(23): Operator not applicable to this operand type

[destructor]

выкладывай dll+exe окончательные