Delphi怎么写到内存

奇光

写到内存 (“0”, 请求地址, )
Delphi里面要怎么写

初夏喔

[Delphi] 纯文本查看 复制代码

var
Num:Cardinal;
a,b:Integer;
ParamAdd: THandle;
lpNumberOfBytes:Cardinal;
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;

这样？

奇光

初夏喔 发表于 2021-11-11 14:00
[mw_shl_code=delphi,true]var
Num:Cardinal;
a,b:Integer;

写到内存 (“写入内存的数据”, 指针, )这样怎么弄

初夏喔

奇光 发表于 2021-11-11 14:04
写到内存 (“写入内存的数据”, 指针, )这样怎么弄

WriteProcessMemory(ProcessID, @a, @b, SizeOf(b), lpNumberOfBytes)

应该是这个，易语言的写到内存应该是把ProcessID默认了自身进程

奇光

初夏喔 发表于 2021-11-11 14:08
WriteProcessMemory(ProcessID, @a, @b, SizeOf(b), lpNumberOfBytes)

应该是这个，易语言的写到内存应 ...

WriteProcessMemory(ProcessID, @a, @b, SizeOf(b), lpNumberOfBytes)

这个那个是写入数据，和指针

dnxl

万能的内存复制  copymemory

努力的小菜鸟

万能的内存复制  copymemory

AnyPopup

memcpy
memset