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。