Цитата:
Сообщение от 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;
так скомпилит?