В Delphi XE2 Компилятор ругается на функции WriteProcessMemory
и ReadProcessMemory
, выдавая ошибку
error E2033: E2033 Types of actual and formal var parameters must be identical
В Delphi7 всё работает замечательно. Кто-нибудь сталкивался?
Stack Overflow на русском — это сайт вопросов и ответов для программистов. Присоединяйтесь! Регистрация займёт не больше минуты.
Присоединиться к сообществуВ Delphi XE2 Компилятор ругается на функции WriteProcessMemory
и ReadProcessMemory
, выдавая ошибку
error E2033: E2033 Types of actual and formal var parameters must be identical
В Delphi7 всё работает замечательно. Кто-нибудь сталкивался?
Сравним определение методов в 2010 (7ки под рукой нет) и XE2:
//Delphi 2010
function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
nSize: DWORD; var lpNumberOfBytesRead: DWORD): BOOL; stdcall;
function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
nSize: DWORD; var lpNumberOfBytesWritten: DWORD): BOOL; stdcall;
//Delphi 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;
Т.е. все что нужно - это явно указать тип данных для переменной, передаваемой в качестве lpNumberOfBytesWritten
, как SIZE_T
.
SIZE_T
, очевидно, появился с поддержкой 64-битных систем.