VPF::использование памяти - Форум программистов

Zman

Дата 7.2.2004, 01:15 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

как заставить переменную принимать значение взятое из ячейки памяти с определенным номером?

<Spawn>

Дата 7.2.2004, 07:04 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

То же самое что и с чтением, но еще нужно провести некоторые проверки на возможность записи в память:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  RVA, Base, OldProtect: DWORD;
  MemPtr: PInteger;
begin
  RVA := $000000FF;
  Base := GetModuleHandle(nil);
  MemPtr := Pointer(Base + RVA);
  if IsBadWritePtr(MemPtr, SizeOf(integer)) then
    if not VirtualProtect(MemPtr, SizeOf(integer), PAGE_READWRITE, OldProtect) then
      Exit;
  MemPtr^ := 20;
end;

Это сообщение отредактировал(а) <Spawn> - 7.2.2004, 13:31

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

p0s0l

Дата 7.2.2004, 11:56 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

<Spawn>, только лучше потом восстанавливать исходную защиту, а то мало ли было PAGE_EXECUTE...

--------------------

С уважением, г-н Посол.

<Spawn>

Дата 7.2.2004, 13:32 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

p0s0l Хм, не знал. А что в том случае может произойти?

--------------------

p0s0l

Дата 7.2.2004, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Торможу, <Spawn> - я попутал страницы с сегментами... У страниц нет физически флага защиты по исполнению, так что всё нормально...

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »