delphi - ""德尔福 : E2033 Types of actual and formal var parameters must be identical ""

Question

所以我收到此错误消息，有人可以帮助我吗，已经尝试了很多谷歌答案:p没有任何效果。

ReadProcessMemory 上的 ctrl+shift+space 结果

**Parameters** 
hProcess System.Cardinal 
IpBaseAddress System.Pointer 
IpBuffer System.Pointer 
nSize System.Cardinal 
IpNumberOfBytesRead System.Cardinal 
**Returns** 
System.Boolean 

指针函数:

Ptr Function: function Ptr(Value: Integer): Pointer;  

变量

var 
  Form1: TForm1; 
  PH : THandle; 
  PID, ThID: DWORD; 
  H : THandle;

function Ptr(Value: Integer): Pointer;

<小时/>

函数

function LerInt(Address: Integer): Integer;
var
  value:integer;
  ler:dword;
begin
  H := FindWindow(nil, 'Something Here :)');
  ThID := GetWindowThreadProcessID(H, @PID);
  PH := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);
  ReadProcessMemory(PH, Ptr(Address), @value, 4, ler); // THIS LINE
  Result:=value;
end;

Answer 1

变量ler的类型错误。它必须是 SIZE_T。

其他评论:

1. 您不需要函数来将整数转换为指针。只需使用Pointer(address) 进行转换即可。但请注意，如果您通过 64 位编译器传递此代码，您将遇到指针截断问题。
2. 您不会检查任何 API 调用中的错误。请检查是否有错误。