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

[Neoteric]

Значит, пытаюсь выделить память в чужом процессе, ниче не выходит.
GetLastError() выдает 5. Т.е ошибка доступа

//бла-бла-бла находим окно чужого процесса
GetWindowThreadProcessId(Wnd, @pid);
proc := OpenProcess(PROCESS_ALL_ACCESS, FALSE, pid);
ptr := VirtualAllocEx(proces, nil, 4096, MEM_RESERVE, PAGE_READONLY);
// указатель становиться равным NULL, а GetLastError возвращает 5

Ради интереса, попробовал тоже самое, но на другом процессе, все ОК работает. Я что-то озадачен либо как-то надо запускать нужный мне процесс, либо его защитили от внедрения

[oleg.v]

Делают так. Выясняют что значит 5 из GetLastError. И таким образом понимают где ошибка. Или берут готовый пример и сравнивают со своим. Но лучше по первому.

[Neoteric]

я написал же уже. 5 - это ошибка доступа или access denied

[oleg.v]

А proc вернул правильный хенлд, проверь его на нулл.

[Neoteric]

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

А proc вернул правильный хенлд, проверь его на нулл.

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

[oleg.v]

Дурацкий вопрос, но всё же: Чем это отличается?

//бла-бла-бла находим окно чужого процесса
GetWindowThreadProcessId(Wnd, @pid);
proc := OpenProcess(PROCESS_ALL_ACCESS, FALSE, pid);
ptr := VirtualAllocEx(proces, nil, 4096, MEM_RESERVE, PAGE_READONLY);
// указатель становиться равным NULL, а GetLastError возвращает 5

[Neoteric]

описачка) Когда вставлял сюда, код забыл отредактировать
Вот так у меня в програме

GetWindowThreadProcessId(Wnd, @pid);
proces := OpenProcess(PROCESS_ALL_ACCESS, FALSE, pid);
ptr := VirtualAllocEx(proces, nil, 4096, MEM_RESERVE, PAGE_READONLY);

[oleg.v]

Выполни GetLastError после proces := OpenProcess(PROCESS_ALL_ACCESS, FALSE, pid);


process := OpenProcess(PROCESS_VM_OPERATION | PROCESS_VM_READ | PROCESS_VM_WRITE, FALSE, pid);

[Neoteric]

тоже пробовал, ниче не возвращает

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

вообще ничего?
1)просите только те привилегии которые вам нужны. может процесс защитился от закрытия?(к примеру)

2)попробуйте так

pid:=GetWindowThreadProcessId(Wnd,nil);
if pid=0 then ShowMessage('не удалось получить идентификато процесса');
proc := OpenProcess(PROCESS_VM_OPERATION, FALSE, pid);//я поставил только аттрибут на выделение памяти, но не право её чтения/записи
if proc=0 then ShowMessage('не удалось открыть процесс');
ptr := VirtualAllocEx(proc, nil, 4096,MEM_COMMIT or MEM_RESERVE, PAGE_READONLY);
if ptr=nil then ShowMessage('не удалось выделить память');

да и освободить не забудьте потом её.
если выдаст сообщение то напишите которое.