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

[alexteam]

думаю понятно.

var
  i : integer;
  P : Pointer;
  OtherI1 : ^Integer;
  OtherI2 : integer;
begin
  i := 123123;
  p := @i;
  OtherI1 := p; //"ссылко"
  OtherI2 := integer(P^); //"копия"
  ShowMessage(inttostr(integer(p^))); //123123
  ShowMessage(inttostr(OtherI1^)); //123123
  ShowMessage(inttostr(OtherI2)); //123123
  i := 321321;
  ShowMessage(inttostr(integer(p^))); //321321
  ShowMessage(inttostr(OtherI1^)); //321321
  ShowMessage(inttostr(OtherI2)); //123123
end;

Добавлено через 3 минуты
в данном случае ему нужно
1. прочитать значение с off_40A798 - это базовый адрес по которому лежит экземпляр класса.
2. добавить к этому значение смещение переменной (на сколько там от базового адреса далеко нужная переменная)
3. загнать полученое значение в var value: ^НужныйТип;
4. юзать value^

[supernewbie]

так так

otheri1:^integer;

adr:=getmodulehandle('project25.exe') + $A798;
otheri1:=@adr;

messagebox(0,PChar(IntToStr(Integer(otheri1^))),'' ,0);

4237208

PS где-то я уже видел это число

[destructor]

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

messagebox(0,PChar(IntToStr(Integer(otheri1^))),'' ,0);

:facepalm:

[supernewbie]

че с ним не так))

[destructor]

весь код функции покажи

[supernewbie]

library path;

uses
  SysUtils,
  Windows,
  Classes;
var
ID, ThrHandle: Cardinal;
adr:Cardinal;
objaddr:Pointer;
otheri1:^cardinal;

procedure MyProc;
begin
adr:=getmodulehandle('project25.exe') + $A798;
otheri1:=@adr;
//messagebox(0,PChar(IntToHex(objaddr,8)),'',0);
messagebox(0,PChar(IntToStr(otheri1^)),'',0);
end;
{$R *.res}

begin
  messagebox(0,'pause','',0);
  ThrHandle:=CreateThread(nil,0,@MyProc,nil,0,id);
end.

[destructor]

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

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

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

помоему так

[alexteam]

program Project2;

{$APPTYPE CONSOLE}
type
  TMyClass = class
  public
    X: integer;
    Y: integer;
    Procedure ApplicationProcedure;
  end;

{ TMyClass }

procedure TMyClass.ApplicationProcedure;
begin
  Writeln(x,' ',y);
end;

var
  MyObj : TMyClass;
  Stored, OffsetX, OffsetY : Pointer;
  PIntX, PIntY : ^integer;
begin
  //приложение
  MyObj := TMyClass.Create;
  MyObj.X := 100;
  MyObj.Y := 200;
  MyObj.ApplicationProcedure;

  //а это типо у нас
  Stored := MyObj; //прочитать значение с off_40A798
  OffsetX := @TMyClass(nil).x; //т.к. я в этом же приложении то могу сделать воттак.
  OffsetY := @TMyClass(nil).y; //на самом деле у нас константы - смещения

  PintX := pointer(integer(Stored) + integer(OffsetX)); //базовый адрес + смещение = адрес того где читать\менять
  PintY := pointer(integer(Stored) + integer(OffsetY));


  PintX^ := 111; //меняем
  PintY^ := 222;

  //опять приложение
  MyObj.ApplicationProcedure;

  readln;
end.

[supernewbie]

getmodulehandle возвращает кардинал же

[destructor]

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

кардинал же

это адрес начала твоего приложения в памяти
приведение типов гугли