|
[求助]除了ReadProcessMemory能读取内存还有什么API可以!
网上扎到这些方法。。。 var X: SmallInt = 8; procedure TForm1.Button1Click(Sender: TObject); var P : ^SmallInt; begin P := @x; Showmessage(InttoStr(P^)); end; procedure TForm1.Button2Click(Sender: TObject); var Addr : integer; begin Addr := integer(@X); //地址值 Showmessage(InttoStr(Addr)); //显示这个地址值 Showmessage(InttoStr(PSmallInt(Addr)^)); end; procedure TForm1.Button3Click(Sender: TObject); var Temp: SmallInt; begin CopyMemory(@Temp, @X, SizeOf(SmallInt)); Showmessage(InttoStr(Temp)); end; |
|
[求助]新人求助软件算法研究了两天终于找到算法的位置了!
大家有什么看法! |
|
|
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值