在内存中执行exe

Question

我正在尝试这段代码.

从内存中执行EXE

我遇到错误"实际和正式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环境下编译它.任何帮助表示赞赏.

Answer 1

该错误告诉您作为参数传递的变量之一没有所需的类型.错误在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;