Delphi 7 to Delphi 10.2

[den57]

Добрый день, учусь писать на Delphi, скачал саму последнюю версию, и сразу наткнулся на ошибку.

Посмотрев на данном форуме примеры, начал пробовать вывести ХП персонажа, но делфи ругается на функцию ReadProcessMemory

E2033 Types of actual and formal var parameters must be identical

В этом коде

procedure TForm1.Button1Click(Sender: TObject);
const
  base_addr=$009C0E6C;
var
  PwHandle: DWORD;
  BytesCount, ipbuf, PID: DWORD;
  Hp: Integer;
  WndHndl: THandle;
begin
  WndHndl := findwindow('ElementClient Window', nil);
  GetWindowThreadProcessId(WndHndl, @PID);
  PwHandle := OpenProcess(PROCESS_ALL_ACCESS, False, PID);

  ReadProcessMemory(PwHandle, Ptr(base_addr), @ipbuf, SizeOf(ipbuf), BytesCount);
  ReadProcessMemory(PwHandle, Ptr(ipbuf+$1c), @ipbuf, SizeOf(ipbuf), BytesCount);
  ReadProcessMemory(PwHandle, Ptr(ipbuf+$34), @ipbuf, SizeOf(ipbuf), BytesCount);
  ReadProcessMemory(PwHandle, Ptr(ipbuf+$490), @HP, SizeOf(HP), BytesCount);

  ShowMessage(IntToStr(Hp));
  CloseHandle(PwHandle);
end;

Нашел информацию по отличаю старых и новых версий

//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.

Подскажи пожалуйста как это сделать???
Пытался объявить пременные так, будет ли это правильным??? Или надо как-то конвертировать?

BytesCount, ipbuf: SIZE_T;

[Тигрь]

Берешь книжку по делфи или по паскали и начинаешь читать с азов, что такое функции что такое процедуры, что такое переменные и как они объявляются, дальше условия и циклы и пошло поехало. хорошо что ты всего лишь взялся за компилятор, а не за какую нибудь бензопилу или распиловочный станок.

[den57]

Цитата: Сообщение от Тигрь Берешь книжку по делфи или по паскали и начинаешь читать с азов, что такое функции что такое процедуры, что такое переменные и как они объявляются, дальше условия и циклы и пошло поехало. хорошо что ты всего лишь взялся за компилятор, а не за какую нибудь бензопилу или распиловочный станок.

В распиловочном станке и любых видах СМР я сам тебе могу мастер класс показать.

Инженер ростехнадзора по механическим системам.

тот человек который аттестует сварщиков (НИКС), монтажников, рабочих люльки, стропальщиков, аттестация в области ПТМ и ЭБ.

Надеюсь вопросов больше нет? Так что можно не понтоваться а ответить на поставленный вопрос, Книжки по паскалю почитал, потренировался, но на циклах массивах и т.п.

[Dinmaite]

procedure TForm1.Button1Click(Sender: TObject); const   base_addr=$009C0E6C; var   PwHandle: DWORD;   ipbuf, PID: DWORD;  
  BytesCount: NativeUint;  
   Hp: Integer;   

WndHndl: THandle; 

begin   

WndHndl := findwindow('ElementClient Window', nil);   

GetWindowThreadProcessId(WndHndl, @PID);   

PwHandle := OpenProcess(PROCESS_ALL_ACCESS, False, PID);    

ReadProcessMemory(PwHandle, Ptr(base_addr), @ipbuf, SizeOf(ipbuf), BytesCount);   

ReadProcessMemory(PwHandle, Ptr(ipbuf+$1c), @ipbuf, SizeOf(ipbuf), BytesCount);  

 ReadProcessMemory(PwHandle, Ptr(ipbuf+$34), @ipbuf, SizeOf(ipbuf), BytesCount);  

 ReadProcessMemory(PwHandle, Ptr(ipbuf+$490), @HP, SizeOf(HP), BytesCount);    ShowMessage(IntToStr(Hp));   

CloseHandle(PwHandle); 

end;

А вообще ctrl+space, когда курсор в поле ввода параметров метода, покажет какие именно типы переменных ожидает данный метод.

[Тигрь]

Цитата: Сообщение от Dinmaite procedure TForm1.Button1Click(Sender: TObject); const base_addr=$009C0E6C; var PwHandle: DWORD; ipbuf, PID: DWORD; BytesCount: NativeUint; Hp: Integer; WndHndl: THandle; begin WndHndl := findwindow('ElementClient Window', nil); GetWindowThreadProcessId(WndHndl, @PID); PwHandle := OpenProcess(PROCESS_ALL_ACCESS, False, PID); ReadProcessMemory(PwHandle, Ptr(base_addr), @ipbuf, SizeOf(ipbuf), BytesCount); ReadProcessMemory(PwHandle, Ptr(ipbuf+$1c), @ipbuf, SizeOf(ipbuf), BytesCount); ReadProcessMemory(PwHandle, Ptr(ipbuf+$34), @ipbuf, SizeOf(ipbuf), BytesCount); ReadProcessMemory(PwHandle, Ptr(ipbuf+$490), @HP, SizeOf(HP), BytesCount); ShowMessage(IntToStr(Hp)); CloseHandle(PwHandle); end; А вообще ctrl+space, когда курсор в поле ввода параметров метода, покажет какие именно типы переменных ожидает данный метод.

Ну на самом деле он правильно прототип написал и там идет тип SIZE_T
если открыть исходники Winapi.Pas то там это видно:
[Ссылки могут видеть только зарегистрированные пользователи. ]
но если дальше в исходник смотреть то видим что SIZE_T представлен как ULONG_PTR, а ULONG_PTR в свою очередь представлен как NativeUInt
[Ссылки могут видеть только зарегистрированные пользователи. ]
и как раз при нажатии ctrl+space среда выдает такой прототип
[Ссылки могут видеть только зарегистрированные пользователи. ]
Я жз с чем связано такое поведение рад студии. Может быть ты в курсе?

[den57]

Написал автосвап на Delphi 7, все работало, утсановил Delphi XE и вот эта строка

PwHandle := OpenProcess(PROCESS_ALL_ACCESS, False, PID);

точнее переменная "PwHandle" равняется нулю... как это изменить, читал про Debug привилегии, но тоже не вышло ничего, может кто подскажет?


Вопрос решен, надо запускать Rad Studio от имени админа...