Comments on: Get Current Process Memory http://www.davinciunltd.com/2007/12/current-process-memory/ Jim McKeeth's blog on creative and innovative Delphi programming. Tue, 02 Dec 2008 23:54:14 +0000 http://wordpress.org/?v=2.6.3 By: Andreas Hausladen http://www.davinciunltd.com/2007/12/current-process-memory/#comment-108 Andreas Hausladen Fri, 28 Dec 2007 08:17:09 +0000 http://www.davinciunltd.com/2007/12/currentprocessmemory/#comment-108 Why do you allocate memory on the heap. The stack would do the same without the need for a try/finally block. function CurrentProcessMemory: Cardinal; var MemCounters: TProcessMemoryCounters; begin MemCounters.cb := SizeOf(MemCounters); if GetProcessMemoryInfo(GetCurrentProcess, @MemCounters, SizeOf(MemCounters)) then Result := MemCounters.WorkingSetSize else RaiseLastOSError; end; Why do you allocate memory on the heap. The stack would do the same without the need for a try/finally block.

function CurrentProcessMemory: Cardinal;
var
MemCounters: TProcessMemoryCounters;
begin
MemCounters.cb := SizeOf(MemCounters);
if GetProcessMemoryInfo(GetCurrentProcess,
@MemCounters,
SizeOf(MemCounters)) then
Result := MemCounters.WorkingSetSize
else
RaiseLastOSError;
end;

]]>