Отменяется вопрос! Сам разобрался. Написал вот такую функцию:
Код:
{==== Определение размера выделенной приложению памяти (в Байтах) ====}
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;
Админ: Пользуемся тегами для оформления кода!