[Prok186]

Вопрос не новый: после перехода с семерки на след. версии многие пользователи замечают, что в глоб. переменной AllocMemSize теперь постоянно нолик. Видимо, это связано с другой моделью памяти. Но что делать? Как определить, сколько памяти в данный момент отведено приложению и вывести эту информацию, скажем, на форму?

[Prok186]

Отменяется вопрос! Сам разобрался. Написал вот такую функцию:

Код:

{==== Определение размера выделенной приложению памяти (в Байтах) ====}
function MyGetAllocatedMemory: Cardinal;
var MMS: TMemoryManagerState;   K: Byte;
begin
GetMemoryManagerState(MMS);
Result := MMS.TotalAllocatedLargeBlockSize +
 MMS.TotalAllocatedMediumBlockSize;
For K := 0 to 54 do with MMS.SmallBlockTypeStates[K] do Result :=
 Result + UseableBlockSize + InternalBlockSize + ReservedAddressSpace;
end;

Админ: Пользуемся тегами для оформления кода!