delphi XE Berlin ReadProcessMemory WriteProcessMemory

delphi  XE，Berlin

[dcc32 Error] Unit9.pas(93): E2033 Types of actual and formal var parameters must be identical

function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;

  nSize: SIZE_T; var lpNumberOfBytesRead: SIZE_T): BOOL; stdcall;

{$EXTERNALSYM ReadProcessMemory}

function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;

  nSize: SIZE_T; var lpNumberOfBytesWritten: SIZE_T): BOOL; stdcall;

 

lpNumberOfBytesRead: SIZE_T用dwBytesWriten: THandle;类型就可以了。

SIZE_T，即NativeUInt。