RSS订阅 | 匿名投稿
您的位置:网站首页 > 内存 > 正文

delphi ReadProcessMemory WriteProcessMemory读写内存

作者:admin 来源: 日期:2018/1/14 11:05:09 人气: 标签:

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;  

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:delphi TSearchRec