delphi Код:
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.