Передача значений в `WriteProcessMemory` без использования переменных: сравнение Delphi и C++

Delphi , ОС и Железо , Windows

Передача значений в WriteProcessMemory без использования переменных: сравнение Delphi и C++

Вопрос о передаче значений в функцию WriteProcessMemory без использования переменных является актуальным для разработчиков, работающих с низкоуровневым программированием. В частности, это может быть полезно при создании крупных программ, где необходимо сократить количество строк кода. В данной статье мы рассмотрим решение этой задачи на примере языков программирования Delphi и C++, с акцентом на Object Pascal (Delphi).

Контекст проблемы

Разработчик столкнулся с необходимостью передачи значений в функцию WriteProcessMemory без использования переменных. В исходном коде использовалась переменная DriftMul, значение которой передавалось в функцию. Разработчик хотел упростить код, убрав необходимость в переменной, и попробовал передать значение напрямую:

WriteProcessMemory(HandleWindow, ptr($4E709C), ptr(99), 2, Write);

Однако такой подход не работал. В качестве альтернативы был предложен метод использования процедур, которые вызываются в зависимости от количества байтов, которые нужно записать. Например:

procedure Wpm(Address: Cardinal; ChangeValues: Byte);
begin
 WriteProcessMemory(HandleWindow, Pointer(Address), @ChangeValues, 1, Write);
end;

Использование PChar также не удовлетворяло требованиям разработчика, так как он не хотел использовать строки.

Подтвержденный ответ

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

const
  DriftMul: word = 99;
...
WriteProcessMemory(HandleWindow, ptr($4E709C), @DriftMul, 2, Write);

Передача ptr(99) не работает, так как ptr(99) является указателем на адрес 99, а не на слово, содержащее значение 99. Также можно использовать открытый массив байтов для гибкости:

procedure WriteBytes(hProcess: THandle; Address: Pointer; const Buffer: array of Byte);
var
  NumberOfBytesWritten: DWORD;
begin
  if not WriteProcessMemory(hProcess, Address, @Buffer[0], Length(Buffer), NumberOfBytesWritten) then
    RaiseLastOSError;
end;

И вызвать функцию так:

WriteBytes(Handle, Pointer($523328), [$42]); // один байт
WriteBytes(Handle, Pointer($523328), [$CC, $90, $03]); // три байта

Сравнение с C++

В C++ разработчик смог обойтись без использования переменных, передав строку:

WriteProcessMemory(hProcess, (void*)0x4E709C, (void*)(PBYTE)"\x20", 1, NULL);

Однако в Delphi такой подход не применим, так как строковые литералы обрабатываются по-другому. В Delphi ближайший аналог - использование констант или открытых массивов байтов.

Заключение

В Delphi для передачи значений в WriteProcessMemory без использования переменных можно использовать константы или открытые массивы байтов. Это позволяет сократить количество кода и упростить его структуру, что особенно важно при разработке крупных программ. Важно понимать различия в обработке данных между C++ и Delphi, чтобы правильно применять полученные знания на практике.

Создано по материалам из источника по ссылке.

Контекст вопроса заключается в поиске способов передачи значений в функцию `WriteProcessMemory` без использования переменных в языках программирования Delphi и C++, с целью упрощения кода и устранения ненужных переменных.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::