[@лосяш]

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

Что у тебя не работает? У тебя адрес в переменную ptr функция возвращает. Лучше её конечно обозвать просто как p, потому что ptr в delphi - это название функции преобразования значения в указатель.

Тебе вывести надо или что? Или возвращает Nil? Если вывести - то:

var:
s: string;
begin
s := IntToHex(DWord(ptr), 8);
ShowMessage(s);
end;

Добавлено через 2 минуты
MEM_RESERVE, PAGE_READONLY

Атрибуты тоже неверные. Вместо MEM RESERVE советую MEM_COMMIT. А насчет PAGE_READONLY - ты же туда потом писать будешь, так почему READONLY? PAGE_EXECUTE_READWRITE надо!!

Если копируешь откуда-то код - то хотя бы гугли описание функций:
https://msdn.microsoft.com/ru-ru/lib...=vs.85%29.aspx

Типа самый умный?