WriteProcessMemory в Delphi 7 и в RAD Studio 10.4.1

@Мороз · Регистрация: 13.11.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте.

Возникла странная проблема.
Есть рабочий код изначально написанный в D7

Кликните здесь для просмотра всего текста

Код из D7

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  DllName : PChar;
  BW, Size, Hdl : Cardinal;
  ParamAddr : Pointer;
  wpm : LongBool;
... 
DllName := PChar(GetCurrentDir +'\ProjectDLL\CD_DLL.dll');
...
Hdl := OpenProcess(PROCESS_ALL_ACCESS, False, TargetId);
Size := Length(DllName)+1;
ParamAddr := VirtualAllocEx(Hdl, nil, Size, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
wpm := WriteProcessMemory(Hdl, ParamAddr, Pointer(DllName), Size, BW);

После выполнении кода по адресу ParamAddr будут записаны данные DllName.
проверял в cheat engine

Кликните здесь для просмотра всего текста

WriteProcessMemory в Delphi 7 и в RAD Studio 10.4.1

такая запись в память другого процесса верна и дальше функция LoadLibraryA корректно принимает это как параметр и загружает длл.

Далее я все это решил перенести в новую версию RAD Studio 10.4.1.
Отличаются подключение модулей и тип переменных:

Кликните здесь для просмотра всего текста

Код из RAD Studio 10.4.1

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  DllName : PChar;
  BW, Size : NativeUInt;
  ParamAddr : Pointer;
  Hdl : Cardinal;
  wpm : LongBool;
... 
DllName := PChar(GetCurrentDir +'\ProjectDLL\CD_DLL.dll');
...
Hdl := OpenProcess(PROCESS_ALL_ACCESS, False, TargetId);
Size := Length(DllName)+1;
ParamAddr := VirtualAllocEx(Hdl, nil, Size, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
wpm := WriteProcessMemory(Hdl, ParamAddr, Pointer(DllName), Size, BW);

Но тут результат записан как символ через байт. Что соответственно фукнция LoadLibraryA не принимает как параметр и ничего не грузит.

Кликните здесь для просмотра всего текста

Хотелось бы узнать из-за чего так и как это решить? Код одинаковый в разных средах. Пробовал с длл скомпилированной в D7 и в D10.4.1.
хелп.

@GoodWeather · 16.11.2020, 08:45

Delphi перешла на Юникод. Вы не в курсе?

Добавлено через 2 минуты
Где LoadLibraryA()? В чужом коде? Видимо вам тогда нужен явно Анси? Пробуйте...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
Var
  DllName : AnsiString;
  BW, Size : NativeUInt;
  ParamAddr : Pointer;
  Hdl : Cardinal;
  wpm : LongBool;
... 
DllName := GetCurrentDir() + '\ProjectDLL\CD_DLL.dll';
...
Hdl := OpenProcess(PROCESS_ALL_ACCESS, False, TargetId);
Size := Length(DllName) + 1;
ParamAddr := VirtualAllocEx(Hdl, Nil, Size, MEM_COMMIT Or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
wpm := WriteProcessMemory(Hdl, ParamAddr, PAnsiChar(DllName), Size, BW);

@Мороз · 16.11.2020, 14:44 **[ТС]**

Сообщение от GoodWeather

Вы не в курсе?

не в курсе... только начал переходить и исследовать новую версию.

Сообщение от GoodWeather

Где LoadLibraryA()? В чужом коде?

Все верно. LoadLibraryA() расположена в чужом коде.

Сообщение от GoodWeather

тогда нужен явно Анси? Пробуйте...

Помогло. Спасибо. Круто.

@GoodWeather · 16.11.2020, 21:36

	Старые Делфи	Новые Делфи
`String` это на самом деле:	`AnsiString`	`WideString`
`Char` это на самом деле:	`AnsiChar`	`WideChar`
`PChar` это на самом деле:	`PAnsiChar`	`PWideChar`
Если логически перепутать `Length()` и `SizeOf()`	Всё будет работать	Возможно запустится, но отработает неправильно

А также все псевдонимы API-функций указывают уже не на *A версии, а на *W версии.

Добавлено через 59 минут
Соответственно, например...
Если надо конкретно LoadLibraryA() - используем конкретные же типы: AnsiString и PAnsiChar.
Если надо конкретно LoadLibraryW() - используем конкретные же типы: WideString и PWideChar.
Если используем псевдоним LoadLibrary() - используем также псевдонимы: String и PChar.

@northener · 17.11.2020, 02:29

Сообщение от GoodWeather

Если логически перепутать Length() и SizeOf() Всё будет работать

Вот только не надо тупить. Length() и SizeOf() это две очень большие разницы! При всех типах строк начиная с Паскалевских, продолжая ANSI-шными и заканчивая Юникодными.

@GoodWeather · 17.11.2020, 15:10

Я-то как раз не туплю. Как раз и говорю что это две большие разницы.
Просто повидал достаточное количество юнитов/компонентов для старых Делфи с запросом "починить их чтоб работали в новых", в которых обнаруживалось именно что их перепутали.

Добавлено через 1 минуту
И всё работало исключительно потому что SizeOf(AnsiChar) равно единице.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@GoodWeather 886 / 588 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	17.11.2020, 15:10
	Я-то как раз не туплю. Как раз и говорю что это две большие разницы. Просто повидал достаточное количество юнитов/компонентов для старых Делфи с запросом "починить их чтоб работали в новых", в которых обнаруживалось именно что их перепутали. Добавлено через 1 минуту И всё работало исключительно потому что `SizeOf(AnsiChar)` равно единице. 0

WriteProcessMemory в Delphi 7 и в RAD Studio 10.4.1

Решение