在内存中执行exe

Question

我正在尝试这段代码。

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环境下编译它。任何帮助表示赞赏。

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;