delphi – 在内存中执行exe

我正在尝试这段代码.

execute EXE from memory

我遇到错误“实际和正式var参数的类型必须相同”.在这方面的任何帮助都非常感谢.

......
   ReadProcessMemory(ProcInfo.hProcess, pointer(Context.Ebx + 8), @BaseAddress, 4, Bytes);    <-- error is here
.......

and

.....
   WriteProcessMemory(ProcInfo.hProcess, pointer(ImageNtHeaders.OptionalHeader.ImageBase), InjectMemory, InjectSize, Bytes);   <---- error here
......

我使用的是Delphi XE2和Windows 7 64位.我的一些朋友能够在D7环境下编译它.任何帮助表示赞赏.

该错误告诉您作为参数传递的变量之一没有所需的类型.错误在var参数中.这两个函数的最后一个参数是唯一的var参数,因此Bytes不是必需的类型.

解决方案是使Bytes匹配ReadProcessMemory和WriteProcessMemory声明中指定的类型.在XE2中,该类型是SIZE_T.所以你只需要将Bytes的定义更改为SIZE_T类型.

以下是XE2声明：

function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer;
  lpBuffer: Pointer; nSize: SIZE_T; var lpNumberOfBytesRead: SIZE_T): BOOL; stdcall;
function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer;
  lpBuffer: Pointer; nSize: SIZE_T; var lpNumberOfBytesWritten: SIZE_T): BOOL; stdcall;