delphi ReadProcessMemory WriteProcessMemory读写内存

本文整理自网络，侵删。

 
var  
Num:THandle;  
a,b:Integer;  
ParamAdd: THandle;  
lpNumberOfBytes:THandle;  
begin  
a:= 1234567;  
b:= 11111;  
//GetWindowThreadProcessId(Ghwnd,PID);  
PID:= FindProcessID('project2.exe');  
ProcessID:=OpenProcess(PROCESS_ALL_ACCESS,False,PID);   // 打开进程  
  
ParamAdd:= VirtualAllocEx(ProcessID,nil,20,MEM_COMMIT,PAGE_READWRITE);    //开辟一个空间  
WriteProcessMemory(ProcessID, @a, @b, SizeOf(b), lpNumberOfBytes);   // 将地址b内容写到地址a中  
ReadProcessMemory(ProcessID,Pointer(@a),@sBase,6,Num);   // 读取地址a内容放进地址sBase中  
ShowMessage(IntToStr(sBase));  
  
end;  
 

相关阅读 >>

Delphi 横竖屏代码控制

Delphi�⒆执�传入到windows目前窗口cursor所在位置

Delphi xe android platform uses-permission[1] 权限列表

winapi 字符及字符串函数(9): lstrcat - 合并字符串

Delphi 开发安卓时判断进入非活动

Delphi cef4Delphi chromium1 设置user-agent

Delphi xe 获取android 系统版本

Delphi 调用clipboard 收集剪切板信息

Delphi 10 seattle的android应用程序的主屏幕上创建快捷方式

tstrings 的用法

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

转载请注明出处：木庄网络博客 » delphi ReadProcessMemory WriteProcessMemory读写内存