Работа с памятью процесса

[JRcoker]

Как запущенному процессу передать значение по определённому адресу типа как артмани....Вобщем допустим адрес 00010862 целое 4 байта значение 10...Как это реализовать в дэлфи?..Если можно кодом...

[Ring0Sn]

Ну в общей теме это выглядит так

   
OpenProcess(PROCESS_VM_WRITE, False, PID{ID нужного процесса}); //Открываем процесс для записи
WriteProcessMemory(hProc, ptr($00010862){указатель на адресс начала записи}, @buf {указатель на буфер с данными ктр надо записать}, SizeOf(buf){размер буфера}, wSize {сюда функция кладет кол-во успешно записанных байт); //Пишем

но учти могут быть разные ньансы (не каждый процесс даст записать что либо в свое адрессное пространство, таким образом...)

[JRcoker]

Тут куча ошибок.....

[DCC Error] Unit1.pas(28): E2003 Undeclared identifier: 'PID'
[DCC Error] Unit1.pas(29): E2003 Undeclared identifier: 'hProc'
[DCC Error] Unit1.pas(29): E2003 Undeclared identifier: 'buf'
[DCC Error] Unit1.pas(29): E2003 Undeclared identifier: 'wSize'
[DCC Error] Unit1.pas(33): E2057 Unexpected end of file in comment started on line 29
[DCC Error] Unit1.pas(34): E2033 Types of actual and formal var parameters must be identical
[DCC Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

Да еще не понятно куда значение писать....
ЧТО ЗНАЧИТ ID?..

[Ring0Sn]

JRcoker, А если самому немного подумать?
ID - идентификатор процесса, его надо получить...
buf - написал же, буфер (т.е что будем записывать в память, туда и кладем своё значение

var buf : Integer; //в данном случае наш буфер
    hWnd, PID, hProc, wSize : DWORD;
begin
  hWnd := FindWindow(nil, 'Безымянный - Блокнот');
  if IsWindow(hWnd) then begin
    GetWindowThreadProcessId(hWnd, @PID); //получаем pid  зная заголовок окошка интересующей нас программы
    hProc := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_WRITE, False, PID);
    try
      if hProc <> 0 then begin
        buf := 10;
        WriteProcessMemory(hProc, ptr($00010862), @buf, SizeOf(buf),
                           wSize); 
        ShowMessage(Format('%d bytes writed...', [wSize]));
      end;
    finally
      CloseHandle(hProc);
    end;
  end;
end;

при помощи WriteProcessMemory можно изменить любые страницы памяти, ктрые доступны из Ring3

[JRcoker]

А возможно как нито buf значение заморозить?..Чтоб не менялось?..

[Stilet]

Чтоб не менялось?..

АртМани пишем?
1. В таймере постоянно перезаписывать
2. Задать для этой ячейки памяти read-only (через VirtualAlloc кажись)

[Christoph]

или выдели просто память и работой с ней....вот тебе и будет небольшой буфер

[BOBAH13]

А про conts у всех память отбило?

[Stilet]

А про conts у всех память отбило?

А причем тут константы? Автору ведь в чужем процессе нужно.

[Ring0Sn]

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

А причем тут константы? Автору ведь в чужем процессе нужно.

[OFF]
Да уж несовсем ясно ... вероятно кто то про плюшки имел ввиду а кто то про пое...
ПО ТЕМЕ:
Задать атрибуты блока можно через VirtualProtect (предварительно зарезервировав его через VirtylaAlloc с флагом MEM_RECEIVE) если память не отшибло