VirtualFree

[SPLER]

Hello! Ребят, такой вопрос.
Резервирую память, таким образом:

procedure TForm2.Button1Click(Sender: TObject);
var
b : BOOL;
bAddress : Integer;
s : DWORD;
P : Pointer;
  begin
    bAddress := $7AAAAAAA;
    s := 2*1024*1024;
    p := VirtualAlloc(Pointer(bAddress), s, MEM_COMMIT + MEM_RESERVE, PAGE_READWRITE);
    b := VirtualFree(Pointer(bAddress), s, MEM_RELEASE);
  end;
end.

Вопрос, резервирует успешно, но при освобождении, возвращает False, в чем моя ошибка?
P.s. Не по теме, уточнение, VirtualAlloc возвращает значение 7AAA0000, т.е. память резервирована от 7ААА0000 до 7ААААААА?

[SPLER]

Ошибку нашел, получилось так:

procedure TForm2.Button1Click(Sender: TObject);
var
b : BOOL;
bAddress : Integer;
s : DWORD;
P : Pointer;
  begin
    bAddress := $7AAAAAAA;
    s := 2*1024*1024;
    p := VirtualAlloc(Pointer(bAddress), s, MEM_COMMIT + MEM_RESERVE, PAGE_READWRITE);
    b := VirtualFree(p, 0, MEM_RELEASE);
  end;
end.

Как понял, при освобождении, система сама знает размер резервированного блока. Ну и с указателем освобождаемой памяти ошибка была.

Остается вопрос:

P.s. Не по теме, уточнение, VirtualAlloc возвращает значение 7AAA0000, т.е. память резервирована от 7ААА0000 до 7ААААААА?

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

вы передавали не тот указатель который надо было.
размер передавать не обязательно, если хотите освободить весь кусок что выделяли, и не кусочек от нее.

по второму вопросу:
память зарезервирована по адресу от p, до s округленного вверх до размера страницы(4096 обычно, но не всегда)

[SPLER]

Пепел Феникса, спасибо за разъяснения.

[SPLER]

Вот опять вопрос возник, по той же теме, в чем на данный момент проблема?

procedure TForm2.Button1Click(Sender: TObject);
  begin
    bAddress := $7AAAAAAA;
    s := 2*1024*1024;
    GetWindowThreadProcessId($0010124E, @PID);
    h := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
    p := VirtualAllocEx(h, Pointer(bAddress), s, MEM_COMMIT + MEM_RESERVE, PAGE_READWRITE);
    b := VirtualFreeEx(h, p, 0, MEM_RELEASE);
    CloseHandle(h);
  end;
end.

Суть та же, не VirtualFreeEx возвращает False. В чем беда, не пойму пока.

[SPLER]

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

Вот опять вопрос возник, по той же теме, в чем на данный момент проблема?

procedure TForm2.Button1Click(Sender: TObject);
  begin
    bAddress := $7AAAAAAA;
    s := 2*1024*1024;
    GetWindowThreadProcessId($0010124E, @PID);
    h := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
    p := VirtualAllocEx(h, Pointer(bAddress), s, MEM_COMMIT + MEM_RESERVE, PAGE_READWRITE);
    b := VirtualFreeEx(h, p, 0, MEM_RELEASE);
    CloseHandle(h);
  end;
end.

Суть та же, не VirtualFreeEx возвращает False. В чем беда, не пойму пока.

Вопрос исчерпан, была ошибка, из за моей не внимательности, все освобождается, все хорошо.

[SPLER]

Вопрос возник, от части, касательно темы, задам здесь, т.к. не стоит отдельной темы, вопрос заключается вот в чем, как указать не 2 мб (s := 2*1024*1024, а например 512 кб или любое другое значение, меньше 1 мб ?

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

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

Вопрос возник, от части, касательно темы, задам здесь, т.к. не стоит отдельной темы, вопрос заключается вот в чем, как указать не 2 мб (s := 2*1024*1024, а например 512 кб или любое другое значение, меньше 1 мб ?

512 КБ= 512*1024 байт

[SPLER]

понял, благодарю