本文整理自网络，侵删。
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 xe android 调试错误：connection closed gracefully
更多相关阅读请进入《Delphi》频道 >>
