Ошибка доступа при выделении памяти в чужом процессе

[Neoteric]

Да, тоже пробовал открывать только на чтение. На последнем и пишет:"не удалось выделить память"


А как насчет варианта не внедриться в уже существующий процесс, а полностью его контролировать с открытия? Это что-то может изменить?

[Пепел Феникса]

а что за процесс если не секрет?
не антивир ли?
они с нулевого кольца порой защищаются.

[GunSmoker]

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

да proc возвращает все правильно, сравнивал с программой WinSpy

ЧЕГОООО??? Какой ещё WinSpy для описателей?!

Срочно бежать читать мат-часть.

Далее, читаем признаки говно-кода и исправляем код:

// Ниже - просто замена стандартный подпрограмм, принимающая один дополнительный параметр - для удобства

resourcestring
  SMsgOSError     = '%s' + sLineBreak + 'System Error.  Code: %d.' + sLineBreak + '%s';
  SMsgUnkOSError  = '%s' + sLineBreak + 'A call to an OS function failed';

procedure RaiseLastOSError(LastError: Integer; const AMsg: String); overload;
var
  Error: EOSError;
begin
  if AMsg = '' then
    RaiseLastOSError(LastError);

  if LastError <> 0 then
    Error := EOSError.CreateResFmt(@SMsgOSError, [AMsg, LastError,
      SysErrorMessage(LastError)])
  else
    Error := EOSError.CreateResFmt(@SMsgUnkOSError, [AMsg]);
  Error.ErrorCode := LastError;
  raise Error;
end;

procedure RaiseLastOSError(const AMsg: String); overload;
begin
  if AMsg = '' then
    RaiseLastOSError(GetLastError)
  else
    RaiseLastOSError(GetLastError, AMsg);
end;

...

// OK, поехали: сам код.

// Функции GetWindowThreadProcessId требуется допустимый описатель, так что вставляем ремень безопасности:
if not IsWindow(Wnd) then
begin
  SetLastError(ERROR_INVALID_WINDOW_HANDLE);
  RaiseLastOSError('GetWindowThreadProcessId');
end;

// Описатель Wnd - корректен, так что функция всегда завершится успехом
GetWindowThreadProcessId(Wnd, @pid);

// Открытие процесса может быть неудачным:
Process := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_OPERATION 
{ правильно указываем требуемый доступ, следуя принципу минимальных привилегий }, False, pid);
if Process = 0 then // проверяем на ошибки
  RaiseLastOSError('OpenProcess');

// Процесс открыт успешно, выделяем в нём память:
Ptr := VirtualAllocEx(Proces, nil, 4096, MEM_RESERVE, PAGE_READONLY);
if Ptr = nil then // проверяем на ошибки
  RaiseLastOSError('VirtualAllocEx');

[Neoteric]

GunSmoker, немного не так выразил свою мысль. Сверял значение pid, получаемое в программе, с winspy'ем.

Ваш код тоже ругается на выделение памяти, с ошибкой 5(access denied)

Еще раз повторю, тестил тот-же самый код, но по отношению к выделению памяти в другом процессе. Все нормально выделялось, так что проблема, думаю, не в коде. Или как-то попытаться задать другие параметры в функциях OpenProcess и VirtualAllocEx, но как не перебирал, результат один - всё таже ошибка 5.


Процесс, нет не антивирь, так что сильной защиты быть не должно, если вообще какая-то есть

[GunSmoker]

А разрядность процессов-то совпадает?

[Neoteric]

Походу дела - нет

Хотя нет, Дельфи же генерит 32х разрядные приложения? и нужный мне процесс тоже 32х разрядный

[oleg.v]

На последок могу предположить что надо выставить права отладки SeDebugPrivilege или чего такого VirtualProtectEx

[GunSmoker]

Называйте процесс тогда. Явно видно, что кто-то сторонний мешает.

Сообщение от oleg.v

На последок могу предположить что надо выставить права отладки SeDebugPrivilege или чего такого VirtualProtectEx

Тогда бы проваливался бы OpenProcess, а не VirtualProtectEx.

[Neoteric]

Да процесс нестандартый. Есть такая игровая платформа гарена. Процесс соответсвено garena.exe

[oleg.v]

Ну тебе на wasm или cracklab. Там видел пару таких тем про гарену.