Delphi程序如何在内存中直接执行可执行文件（exe）？

本文共计273个文字，预计阅读时间需要2分钟。

我在尝试执行这段代码时遇到了错误：实际和正式的var参数的类型必须相同。。在这方面，任何帮助都十分感激。......+ReadProcessMemory(ProcInfo.hProcess, pointer(Context.Ebx + 8), @BaseA)+

我正在尝试这段代码.

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;