delphi – 在内存中执行exe

发布时间：2020-12-15 09:17:47 所属栏目：大数据来源：网络整理

导读：我正在尝试这段代码. execute EXE from memory 我遇到错误“实际和正式var参数的类型必须相同”.在这方面的任何帮助都非常感谢. ...... ReadProcessMemory(ProcInfo.hProcess,pointer(Context.Ebx + 8),@BaseAddress,4,Bytes); -- error is here.......and..

我正在尝试这段代码.

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!