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

[waleri]

Сообщение от Пепел Феникса

вы внутри себя, зачем это?
нужны лишь указатели.

Очевидно конечная цель - другой процесс.

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

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

Очевидно конечная цель - другой процесс.

смысл не меняется, все равно нужно знать что менять, а не наугад.

[lollollollol]

Конечная цель мой процесс, move выдаёт run time error

Почему вы говорите что я меняю "наугад"?
Я получаю значение блока
readResult:=ReadProcessMemory(Proce ssHandle,lpBuffer.BaseAddress, @Buf,lpBuffer.RegionSize, lpBuffer.RegionSize);
и знаю что он начинается с lpBuffer.BaseAddress, и имеет длину lpBuffer.RegionSize

Потом в переменной я меню искомое значение на нужное, и записываю в этот же адрес, такой же длины.

[lollollollol]

        ZeroMemory(@Buf, sizeof(Buf));
        move(lpBuffer.BaseAddress,Buf,lpBuffer.RegionSize);  //Тут Access violation
        SetString(r,PChar(@Buf),lpBuffer.RegionSize);
        if (Pos(Testsss+'oa1',r)<>0) then begin
          r:=ReplaceSub(r,Testsss+'oa1','eeee');
 move(lpBuffer.BaseAddress,r[1],lpBuffer.RegionSize);

Запарился совсем, ткните носом что делаю не так

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

Потом в переменной я меню искомое значение на нужное, и записываю в этот же адрес, такой же длины.

для чтения из самого себя ReadProcessMemory не нужен.
а ошибка с move говорит о том что у вас нет доступа к нужной страницы.

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

[lollollollol]

procedure ReadBytesss;
var
  SysInfo:TSystemInfo;
  lpBuffer:TMemoryBasicInformation;
  dwLength:DWORD;
  Buf:array[0..999999] of byte;
   r:string;
begin
  GetSystemInfo(SysInfo);
  dwLength:=1;
  while (dwLength<>0) do begin
    dwLength:=VirtualQuery(SysInfo.lpMinimumApplicationAddress,lpBuffer,SizeOf(lpBuffer));
    SysInfo.lpMinimumApplicationAddress:=Pointer(longint(SysInfo.lpMinimumApplicationAddress)+lpBuffer.RegionSize);
    if (integer(SysInfo.lpMinimumApplicationAddress)>integer(SysInfo.lpMaximumApplicationAddress)) then Break;
    if (lpBuffer.State = MEM_COMMIT) and ((lpBuffer.Protect<>PAGE_NOACCESS)and(lpBuffer.Protect<>PAGE_NOACCESS)) then begin
      //Условие, что строкой выше, проверят доступна ли память для чтения
      try
        ZeroMemory(@Buf, sizeof(Buf));
        move(lpBuffer.BaseAddress,Buf,lpBuffer.RegionSize);  //Вот тут ошибка, но не всегда
        SetString(r,PChar(@Buf),lpBuffer.RegionSize);
        if (Pos(Testsss+'oa1',r)<>0) then begin //Если в блоке есть нужная информация
          r:=ReplaceSub(r,Testsss+'oa1','eeee'); //Отредактирую её, заменив Testsss+'oa1' на 'eeee'
          move(lpBuffer.BaseAddress,r[1],lpBuffer.RegionSize); //И запишу по тому же адресу что и читал
        end;
      except
      end;
    end;
  end;
end;

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

вы сами видите что меняете?
вы по сути меняете лишь минимальный адрес в вашем приложении, не более.
меняете чтото наугад внутри себя.*
а проверять надо еще и на то, есть ли права на запись, а то проверяете флаг NOACCESS, что имеет иной смысл.

почитали бы хелпу по функциям чтоль.

*вы не ищете значение внутри себя, а просто берете адрес от других функций.

[lollollollol]

Что значит

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

? я ведь вначале записываю весь блок начиная с минимальнго адреса. Или я не правильно понимаю значения функций?

    dwLength:=VirtualQuery(SysInfo.lpMinimumApplicationAddress,lpBuffer,SizeOf(lpBuffer));

	
	

			
				//Функция VirtualQuery возвращает информацию о диапазоне страниц виртуального адресного пространства вызывающего процесса
			
		
   SysInfo.lpMinimumApplicationAddress:=Pointer(longint(SysInfo.lpMinimumApplicationAddress)+lpBuffer.RegionSize);
//Указываю на следующий блок данных, или это лишнее? я так понял что оно в lpBuffer.RegionSize записывает размер области данных, но это не вся память процесса, и если добавить это значение к начальноу блоку, то получу инфу о след блоке, верно?
    if (integer(SysInfo.lpMinimumApplicationAddress)>integer(SysInfo.lpMaximumApplicationAddress)) then Break;
//Тут  я проверяю, если блок данных выше максимального, то выхожу из цыкла. 
    if (lpBuffer.State = MEM_COMMIT) and ((lpBuffer.Protect<>PAGE_NOACCESS)and(lpBuffer.Protect<>PAGE_NOACCESS)) then begin
      //А какая проверка должна быть?
      try
        ZeroMemory(@Buf, sizeof(Buf)); //Обнуляю память
        move(lpBuffer.BaseAddress,Buf,lpBuffer.RegionSize);  //Ну и читаю весь регион в переменную, или не правильно? В чём ошибка?
        SetString(r,PChar(@Buf),lpBuffer.RegionSize); //Записываю то что прочитал в строку

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

оно возвращает информацию о диапазоне страниц, но не о том что находится в них.

[lollollollol]

Хорошо, я получил информацию о диапазоне страниц, какие должны быть следующие действия? Разве не чтения блока данных страницы?