Цитата:
|
Сообщение от M.A.D.M.A.N.
Я ж дал ссылку с описанием как она работает.
Просто поинтер передать, а дальше флаги проверять MEM_COMMIT или че-то в этом роде.
|
Вот так я написал
Код:
procedure BoolMem(var p:pointer; NewSize:cardinal);
var B:TMemoryBasicInformation;
begin
if VirtualQuery(p,B,MSize) = S_OK then
FreeMem(p,MSize);
GetMem(p,NewSize);
end;
Получается полная ерунда
При первом входе MSize может иметь разные значения.
Пробовал При MSize:= 0 - 20 он пропускает.
Это не есть хорошо!!!