Показать сообщение отдельно
  #2  
Старый 19.06.2011, 19:20
Prok186 Prok186 вне форума
Прохожий
 
Регистрация: 19.06.2011
Сообщения: 22
Репутация: 10
По умолчанию

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