VirtualProtect принимает значение False(Delphi 7). Как исправит?

[bomdom]

Написал программу, в который один из пунктов поменять атрибут защиты страницы, а он не меняется, в чему у меня ошибка?
Проверяю атрибут с помощью VirtualQuery.

procedure TForm1.Button3Click(Sender: TObject);
VAR //mbi:MEMORY_BASIC_INFORMATION;
    mbi:TMemoryBasicInformation;
    dwRez:DWORD;
begin
  if Edit1.GetTextLen<=0
  then ShowMessage('Введите виртуальный адрес')
  else
  begin
    dwRez:=VirtualQuery(pointer(StrToInt(Edit1.Text)),mbi,sizeof(MEMORY_BASIC_INFORMATION));
    Memo1.Clear;
    Memo1.Lines.Add('Базовый адрес '+IntToStr(integer(mbi.BaseAddress)));
    Memo1.Lines.Add('Адрес размещения'+IntToStr(integer(mbi.BaseAddress)));
    case mbi.AllocationProtect of
      0:            Memo1.Lines.Add('ВАП зарезервировано');
      PAGE_NOACCESS:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_NOACCESS');
      PAGE_READONLY:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_READONLY');
      PAGE_READWRITE:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_READWRITE');
      PAGE_EXECUTE:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_EXECUTE');
      PAGE_EXECUTE_READ:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_EXECUTE_READ');
      PAGE_EXECUTE_READWRITE:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_EXECUTE_READWRITE');
      PAGE_WRITECOPY:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_WRITECOPY');
      PAGE_EXECUTE_WRITECOPY:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_EXECUTE_WRITECOPY');
    end;
    Memo1.Lines.Add('Размер региона '+IntToStr(mbi.RegionSize)+' байт');
    case mbi.State of
      MEM_COMMIT: Memo1.Lines.Add('Состояние ВАП MEM_COMMIT');
      MEM_RESERVE: Memo1.Lines.Add('Состояние ВАП MEM_RESERVE');
      MEM_FREE: Memo1.Lines.Add('Состояние ВАП MEM_FREE');
    end;
    case mbi.Protect of
      0:            Memo1.Lines.Add('зарезервировано');
      PAGE_NOACCESS:Memo1.Lines.Add('Атрибут защиты физ.памяти PAGE_NOACCESS');
      PAGE_READONLY:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_READONLY');
      PAGE_READWRITE:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_READWRITE');
      PAGE_EXECUTE:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_EXECUTE');
      PAGE_EXECUTE_READ:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_EXECUTE_READ');
      PAGE_EXECUTE_READWRITE:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_EXECUTE_READWRITE');
      PAGE_WRITECOPY:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_WRITECOPY');
      PAGE_EXECUTE_WRITECOPY:Memo1.Lines.Add('Атрибут защиты ВАП PAGE_EXECUTE_WRITECOPY');
    end;
  end;
end;


procedure TForm1.Button7Click(Sender: TObject);
begin
Case  RadioGroup1.ItemIndex of
  0: VirtualProtect(pointer(StrToInt64(Edit1.Text)),4096,PAGE_NOACCESS,nil);
  1: VirtualProtect(pointer(StrToInt64(Edit1.Text)),4096,PAGE_REAdonly,nil);
  2: VirtualProtect(pointer(StrToInt64(Edit1.Text)),4096,PAGE_READWRITE,nil);
  3: VirtualProtect(pointer(StrToInt64(Edit1.Text)),4096,PAGE_EXECUTE,nil);
  4: VirtualProtect(pointer(StrToInt64(Edit1.Text)),4096,PAGE_EXECUTE_READ,nil);
  5: VirtualProtect(pointer(StrToInt64(Edit1.Text)),4096,PAGE_EXECUTE_READWRITE,nil);
  6: VirtualProtect(pointer(StrToInt64(Edit1.Text)),4096,PAGE_WRITECOPY,nil);
  7: VirtualProtect(pointer(StrToInt64(Edit1.Text)),4096,PAGE_EXECUTE_WRITECOPY,nil);
end;
end;

[waleri]

Прочитайте документацию к VirtualProtect() и обратите особое внимание на последний аргумент.

[bomdom]

lpflOldProtect [out]
Указатель на переменную, которая принимает старое значение атрбута доступа к памяти для первой страницы из указанного диапазона. Если этот параметр равен nil, или не является правильным указателем на переменную, функция вернет ошибку.

Если имеется в виду вот это(то что с верху), я код изменял на такое, но и так не работает.

 p:=pointer(777777);
  case RadioGroup1.ItemIndex of
    0: sss:=VirtualProtect(pointer(StrToInt(Edit1.Text)),4096,PAGE_NOACCESS,p);
    1: sss:=VirtualProtect(pointer(StrToInt(Edit1.Text)),4096,PAGE_READONLY,p);

[bomdom]

Так же пробовал вот так.

procedure TForm1.Button7Click(Sender: TObject);
var  OldProtectionCode: Cardinal;
begin
Case  RadioGroup1.ItemIndex of
  0: VirtualProtect(pointer(StrToInt64(Edit1.Text)),4096,PAGE_NOACCESS,@OldProtectionCode);
  1: VirtualProtect(pointer(StrToInt64(Edit1.Text)),4096,PAGE_READONLY,@OldProtectionCode);

[waleri]

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

[bomdom]

В VirtualAlloc надо было прописать MEM_RESERVE. Теперь работает
До этого читал функции в методичке, в ней не все описано.

[waleri]

Странно, должно работать и с MEM_COMMIT

[bomdom]

Я прочитал еще и про VirtualAlloc, да работает и с MEM_COMMIT, я поначалу не раздумывая менял знчения virtualAlloc, во и написал прошлый ответ(на деле изменил две переменные), оказывается я lpAddress в VirtualProtect указал не такой как в VirtualAlloc.

Программа у меня работает.

[bomdom]

Вопрос немного не по названию темы.
Почему при вводе некоторых адресов(например 6675435), размер регона становится большим(335872 байт) и атрибт защиты не меняется?

Где об этом почитать?