[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;

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