Delphi tips: Как узнать сколько памяти занимает программа?

Данный вариант будет работать только под системами на базе Windows NT/2k/XP и выше. <br/>--------------------------------- <br/> <br/>uses psAPI; <br/><br/>function GetUsedMemory; <br/>var <br/> pmc: PPROCESS_MEMORY_COUNTERS; <br/> cb: Integer; <br/>begin <br/> cb := SizeOf(_PROCESS_MEMORY_COUNTERS); <br/> GetMem(pmc, cb); <br/> pmc^.cb := cb; <br/> if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then <br/> result:=pmc^.WorkingSetSize <br/> else <br/> result:=0; <br/><br/> FreeMem(pmc); <br/>end; <br/>