delphi中读取指定内存地址的值


本文整理自网络,侵删。

 procedure TForm1.Button1Click(Sender: TObject);
var
hwnd:cardinal;
pid:Dword;
hProcess:cardinal;
x:string;
Num: cardinal;


begin
setlength(X,$10);
hwnd := FindWindow(nil, 'Cheat Engine 5.3');
GetWindowThreadProcessId (hwnd, @pid);
hProcess := OpenProcess(PROCESS_ALL_ACCESS, false, pid);
If hProcess <> 0 Then
begin
if ReadProcessMemory(hprocess,Pointer($1005334),@x,$10,num) then
label1.Caption := string(x)
else
showmessage('读数失败~!');
end
else
showmessage('未启动游戏');
CloseHandle(hProcess);

end;

相关阅读 >>

Delphi 判断尾串是否匹配,不分大小写

Delphi getfilehashmd5获取文件 hashmd5值

Delphi 一行一行读取txt文件

Delphi获取本机或者网关的互联网ip地址

Delphi 熊猫烧香核心源码

Delphi气泡提示

Delphi webbrowser有关技术

Delphi flash控件使用

Delphi dbgrid 表格自适应宽度

Delphi10.3构造一个json数据的第三种方法,并格式化输出

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...