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实现tedit控件的外观只有一条下划线

Delphi 获取网卡物理地址之内存获取方式函数源码

Delphi真正实现延时暂停功能

Delphi 实现打开文件定位

Delphi 打造mygetprocaddress函数(Delphi源码)

Delphi 获取其它软件的tlistbox句柄，怎么取得listbox中的数据

indy tidtcpclient 在网络掉线时的处理方法

Delphi动态创建一个ipedit控件

Delphi文件 fileopen 、fileseek等的用法（看红色字体）

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

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